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This thesis extends the multi-computer real-time 
executive, MCOPTEX , for a cluster of single Doard computers 
(INTEL iSBC 36/12) on the MULTIBUS, to a multiple cluster 



system tied 


together by a 


Local Area 


Network 


(Ethernet ) 


. The 


E-M CORTEX 


system uses 


even to ount s 


a nd 


sequencers 


to 


synchronize 


processes 


resident in 


the 


network. 


Data 



communications between processes are presently limited to a 
single cluster with shared memory. However, future versions 
of E-MCORTEX will permit network-wide process 
syncbronizati or and data communication. 
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I. INTRODUCTION 



A. DISCUSSION 
1. General 

The purpose of this thesis is to extend the 
existine version of MCORTEX to a distributed multi-computer 
real-time executive which transcends the boundaries of a 
length-limited parallel system's bus, the MULTIBUS. This 
extension is provided by a local area network (LAN) medium, 
the Ethernet, and . the additional operating system 
primitives . 

As the anti-air warfare (AAW) system of the 1980's 
for the U.S. Navy, the AEGIS Weapon System captured the 
attention of a project group at the Naval Postgraduate 
School (NPS). The project group was formed to look at the 
AN/SPY-1A phased array radar processing unit. This unit was 
selected due to the time critical nature of the processing 
requirements, i.e., the fast reaction to inbound hostile air 
contacts (missile and aircraft). The AEGIS Modeling Group 
has been working on the VLSI a rrhi t ec ture and the MCORTEX 
real-time executive for several years. 

The fundamental objective is to utilize 
commercially available LSI and VLSI components that can be 
implemented in a modular form within the AEGIS Weapons 
System. Subseouent low cost is a desirable effect, but the 



11 



proposed replacement cf the current four-bay AN/UYK-7 
computers, of the AN/SPY-1A phased array suite, is not soley 
cost-based. Reliability and functional redundancy in the 
event of failure are extremely important criteria. Mean time 
to repair (MTTR) is a crucial issue for deployed units (ship 
or aircraft), due primarily to the unavoidable disrupted Sea 
Lanes of Communication (SLOG). An onboard technician could 
discard a failed component and replace a low cost LSI 
device, such as a microprocessor, from an onboard supply 
bin. 

The project team has produced (up to and including 
this thesis) a highly modular hardware base, integrated with 
an equally modular and highly extensible software base. The 
use of Ethernet as the highest level bus has introduced 
another comne rcia 1-grade product into an existing system of 
commercial-grade products. As an established standard in 
the marketplace, the low cost, availability, and support of 
Ethernet is virtually guaranteed for years to come. 

2. Specific 

We define a cluster as a group of single board 
computers (SEC), controlled by multiple kernels of MCORTEX, 
sharing a common backplane. The integration of the kernels 
with a general purpose commercially available operating 
system (CF/M-86) collectively provides multiprogramming 
capability, multiprocessing capability, and standard disk 
operating system (DOS) functions. Increased cost- 
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performance is realized by expanding M CORTEX to allow 
multiple kernels to schedule processes that synchronize and 
communicate via an intercluster bus (Ethernet). The benefits 
of interconnecting processing nodes to facilitate 
information exchange and resource sharing has long been 
recognized. These recognized benefits are being applied in 
the development of extended PCORTEX. The collection of 
available clusters and the high speed interconnect is 
collectively known as RTC* (Real-time Cluster Star). As will 
be seen, the Kleene closure connotes the true power and 
extensibility of MCORTE.X. 

The locality of processing modules in a real-time 
environment is tantamount to speed and efficiency. By 
effectively co-locating real-time sensors and related 
processing modules, real-time data aouisition and processing 
is assured. The use of the Ethernet medium allows the 
extension of needed process synchronization and interprocess 
communications to processing nodes which cannot be located 
physically close enough for shared memory. 

As a fully distributed real-time executive, MCORTEX 
consists of single board resident kernels which support 
multiprocessing. Process synchronization between virtual 
processes in the same cluster or in different clusters is 
provided, entirely transparent to user processes, through 
integrated cluster hardware and kernel primitives. 



13 



The distinction must te made between user processes 
and system processes. MCORTEX is the executive which 
provides primitives to allow processes to synchronize and 
communicate asynchronously. The only system process invoked 
by MCORTEX is the device-ienenden t Ethernet C ommun ica t ion 
Controller Board (ECC3) handler and packet interpreter. This 
system process is resident within one SBC at each cluster. 
As a consumer of Ethernet Request Packets (ERP), produced by 
each kernel, this virtual processor does not compete against 
other processes for a time Quantum. It is throueh the ERP's 
that user processes make known their need to transmit 
information over Ethernet. It is transparent to the user 
processes, however, that an ERP is generated; MCORTEX takes 
care of this detail. The ECCB handler and packet interpreter 
is scheduled under MCORTEX and never surrenders the CPU. 
When it does not have any Ethernet Request Packets to 
consume, it idles in a "Busy Wait" loop. It is anticipated 
that its wait will be minimal. User processes are those 
which are independent of cluster hardware, generally cyclic 
in nature, and provide a function in support of the Aegis 
Weapon System Simulation and Modeling effort. 

B. BACKGROUND 

The initial design of MCORTEX was completed in 1980. The 
implementation for the iSBC 86/12 single board processors 
was completed in three Naval Postgraduate School theses in 
1981 and 1982. Wasson [Ref. ll defined the detailed design 
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of an operating system tailored to real-time image 
processing. His design used the MULTICS concept of 
segmentation and per process stacks and Reed and Kanodia's 
[Ref. 2 ] eventcount synchronization methods. Rapantzikos 
[Ref. 3] began the initial implementation of Wasson's 
efforts. At this point, MCORTEX used the concept of a "two 
level traffic controller" to effect processor multiplexing 
among eligible processes. 

Cox [Ref. 4] simplified the design of MCORTEX. He 
reduced the traffic controller to one level of abstraction, 
favoring reduced MCORTEX execution overhead over the 
security of the two level traffic controller. Cox's other 
contribution was the addition of a "gatekeeper" module to 
the entry to the operating system, so the user's access to 
system calls was simplified. Klinefelter [Ref. 5] 
generalized Cox's work and developed a techniaue to 
dynamically interact with the operating system during its 
executi on . 

Luring the early stages of development of MCORTEX 
concurrent research efforts, within the AEGIS Modeling 
Group, were producing a multi-user CP/M-86 based disk 
sharing environment. It was envisioned this system would be 
used to develop software in support of the SPY-1A processing 
emulation . 

Rowe [Ref. 61 .brought the powerful, highly portable 
functions of the multi-user CP/M-86 operating system under 
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the control of MCORTEX. He also developed access mechanisms 
to the MCORTEX supervisor compatible with Digital Research's 
PL/I-86 language system. User programs could then be 
developed in a high level, portable language. The kernels of 
MCORTEX, system processes, and user processes could then be 
loaded into single board processors from the CP/M-86 
environment. Just as importantly, access to the disk sharing 
capabiltities of the multi-user CP/M-86 system, via MCORTEX 
processes, was made possible. Rowe's efforts were a 

culmination of the planned synergism of the individual 
research projects. 

C. STRUCTURE OF THE THESIS 

The goals of this thesis are to: 

1. Extend the existing MCORTEX real-time executive for 
a single cluster of single board computers with 
shared memory to a real-time executive for a 
multiple cluster system without shared memory. 

2. Extend the existing MCORTEX without introducing 
substantial changes either to the MCORTEX executive 
or its primitives. 

3. Use the Ethernet interface between clusters to 
communicate systems data. 

Chapter I discusses the overall intent of the AECIS 
Weapons System Simulation Project and the emphasis area this 
thesis covers in accomplishing project goals. 
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Chapter II presents design concepts and criteria for the 
original HCORTEX model and the distribution model upon which 
the extension to MCORTEX is based. 

Chapter III is a presentation of the system 
architecture, with primary emphasis on hardware components. 

Chapter IV details the system design of MCORTEX, 
including the method by which user processes gain access to 
Ethernet services. 

Chapter V is a thorough presentation of the development 
of user processes and the modif ications to the MCORTEX 
loader. 

Chapter VI is a summary of the current state of the 
system, with particular emphasis on future enhancements and 
scheduled modifications. 
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II. THE EV ENTCOUNT MODEL 

A. A MODEL OE SYNCHRONIZATION 

A computer system that manages resources used by 
concurrently operating, independent users requires a 
mechanism that allows processes to synchronize the use of 
shared resources. 

The most common existing models of synchronization are 
based upon the principle of mutual exclusion and shared data 
to achieve synchronization. Semaphores [Ref. ?] and monitors 
[Ref. S] are based on the concept of mutual exclusion. In 
this context mutual exclusion is a mechanism that forces the 
time ordering of execution of pieces of code, called 
critical sections. 

The characteristics of the semaphore and monitor 
synchronization models have undesirable effects. These 
effects include complex proofs for program correctness and 
limitations on applicability to distributed systems. 

The model upon which MCORTEX is based is an event 
oriented model of synchronization in which processes 
coordinate their activities by signalling and observing 
events via synchronization variables, known as even tcounts” 
and sequencers.' These synchronization variables are 
interfaces for all interaction among processes. It is 
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normally unneccessary for a process to know the names or 
residences of other processes. 

This model makes no assumptions about the environmental 
properties of systems and consequently is directly 

applicable to distributed systems. \ distributed system is 
defined as a system which, due to the lack of a common 
memory, requires communication among processes to be via 
communication channels involving unpredictable time delays. 

B. HODEL VARIABLES 

1. Eventcounts and Sequencers 

Unlike the semaphore model, the MCOftTEX model 
solves the synchronization problem in terms of timing 
constraints on occurrences of events, instead of mutual 
exclusion. Events are divided into event classes and events 
of a given class are represented by an associated 
synchronization variable of the type 'eventcount . 

Primitive operations exist that permit processes to signal 
and observe occurrences of events. 

The eventcount alone is inadequate in certain types 
of timing constraints problems. This type of synchronization 
problem has the characteristic that the order of different 
activities is not specified in advance. Instead the 
synchronization system dynamically defines a total order 
among them. To deal with this type of constraint a 
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synchronization variable, known as a "sequencer," is 
needed . 

An eventcount is primarily a count of the number of 
events of a particular class that have occurred in the past. 
It can be considered a non-negative integer variable whose 
value never decreases. This is reasonable, since events 
cannot ’unhapoen . 

2. fAodel Primitives 

To signal the occurrence of events, an advance 
primitive is used. Two primitives, await and read, are used 
to obtain values of eventcounts . A primitive operation 
advance(E) signals the occurrence of an event in the class 
associated with the eventcount E. This operation increases 
the integer value of E by 1. The value of the eventcount 
equals the number of advance operations performed on it. The 
initial value of an eventcount is zero. 

A process can observe the value of an eventcount in 
one of two ways. The value may be read directly using the 
primitive read(E), or the process can block itself until the 
eventcount reaches a specific value v using the await(E,v) 
primitive. The value returned by read(E) counts all of the 
advance operations that precede the execution, and may or 
may not count those in progress during the read. The result 
of read(E) is, therefore, a lower bound on the current value 
of E after the read, and an upper bound on the value of E 
before the read. 
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Freouently a process nay rot wish to continue 
executing unless an event, in a class in which it has 
interest, has occurred. A 'busy wait' could be implemen ted 
easily by looping around an execution of a read(E) primitive 
until a specified value of the eventcount, E, is reached. 
The implication of wasted CPU cycle time is evident and in 
many instances could be avoided. A process can voluntarily 
block itself with an await(E, v) primitive call. The calling 
process will remain suspended (i.e., not ready for 
execution) until the value of E is at least v. Processes 
written in PL/I - like .pseudo-code, as illustrated in Figure 
1, demonstrates the use of the advance and await primitives. 
The producer and consumer process must synchronize their use 
of a shared N-oell circular buffer. The circular buffer is 
implemented as an array in shared memory with indices from 
0 to N-l. Two eventcounts MESSAGE_IN and MES5AGE_0UT are 
used to synchronize the producer and consumer. The producer 
generates a series of messages by calls on a function 
”receive_message" and stores the i-th iteration in 
message_buf fer( ( i-1 ) mod N). The consumer reads these values 
out of the buffer in order and consumes them by calling a 
”xmi t_message " subroutine and advancing eventcount 
MESS AGE_OUT . 

The two eventcounts, MESSAGE_IN and MESSAGE_OUT, 
coordinate the use of the buffer so that: 

(1) the 'consumer does not read the i-th message from the 
buffer until it has been stored by the producer, and 
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producer: procedure; 



i = 0J 

do while (FOREVER); 

,1 = read (MESSAGE_IN ) ; 
k = read (MESSAGE OUT); 
if ( ( j - k) >= NT then 

call awai t ( MESSAGF_OUT, k + 1); 

/* if difference in eventcount values 
exceeds buffer length then block */ 
me ssage_buf f e r ( i MOD N) = receive_message ; 
call advance( MESSAGE_IN ) ; 
i = i + 1 i 

end; /* do while */ 
end; /* procedure 



consumer: procedure? 
i = l; 

do while (FOREVER); 

call await(MESSAGE_IN, i)J 

/* if MESSAGE_IN < i then block */ 
call xmi t_mes sage (mes sage_buf f er ( ( i-1 ) MOD N)); 
call advance ( MESS AGE _OUT ) ; 
i = i + 1 ; 
end? /* do while */ 

end; /* procedure */ 



Figure 1 Producer-Consumer Process Synchronization 
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(2) the producer does not store the (i + N)th value into 

the buffer until the i-th value has been read by the 
consumer . 

It is important to note that in the above producer- 
consumer example, each eventcount has only one writer. In 
the usual semaphore solution both processes would modify the 
same synchronization variable. For example, let P(S) 
represent the synchronizing primitive where processes wait 
for S (some resource) to become greater than zero and then 
subtract 1 from S before proceeding. Further, let V ( S ) 
represent the synchronizing primitive where the processes 
add 1 to S before proceeding. With this type of 
synchronization the consumption and production of a result 
or resource reouires that all processes read or write S. A 
reduction in write competition often occurs in eventcount 
solutions, resulting in simplified correctness proofs and 
simplifying the synchronization of physically distributed 
processes . 

The power of eventcour.ts rest ir their ability to 
achieve synchronization through a relative ordering of 
events, rather than by mutual exclusion. In the previous 
example, concurrency of execution is gua ranteed if the 
producer starts out several steps ahead of the consumer and 
the speeds of production and consumption are eaual. In that 
case there does not exist a time when the consumer or 
oroducer must wait for the other to complete an operation. 
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In synchronization problems that require exclusive 
use of a resource, the eventcount alone is inadequate. Two 
or more processes desiring to use a shared resource or 
write to a shared buffer location are natural examples. 
Another kind of an object, known as a "sequencer" can be 
used to provide the needed total ordering. A sequencer is 
considered a natural number generator, i.e, it returns the 
sequence 0,1,2,..., etc. Only one operation exists on a 
sequencer - ticket. When applied to a sequencer S, ticket(S) 
returns a non-negative integer value as its result. The 
ticket primitive is based on the idea of the first-come 
first-served principle used in everyday life. A ticket 
machine in a catalog sales store or shoe store is an 
example. The ticket machine issues successive integer values 
on the ticket, and the next customer to be served is based 
on the number on the ticket. The store clerk can determine 
the next person to be served by merely adding one to the 
previously served number. The customers are served in first- 
come first-served order. If a customer with the next ticket 
number has walked out of the store when his number is 
called, he loses his turn and must get another ticket. This 
service policy is usually implemented in both stores and in 
computer operations by a watchdog timer. 

The use of sequencers implies mutual exclusion not 
present in eventcounts. In the case of multiple producers, 
in a producer-consumer relationship, all message deposits 
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must be mutually exclusive, but it is highly undesirable to 
place an a priori sequence constraint on several producers. 
Each producer obtains a ticjset number from seauencer S for 
depositing its message in the buffer. Once a process obtains 
a ticket, it merely waits for the completion of all 
producers that obtained prior tickets. Each producer 
executes the code illustrated in Figure 2 and each consumer 
executes the same code shown in Figure 1. 

The producers block in the following circumstances: 

(1) Another producer has a lower ticket value and as yet 
has not deposited his message. 

(2) The single consumer is unable to keep up with the 
messages deposited in the buffer. 

C. A DISTRIBUTEE SYMCHRON IZATION MODEL 
1 . Asynchronous Eventcount s 

In distributed clusters without shared memory, a 
change to an eventcount (via advance) takes time to 
propagate down communication lines to other systems. Two 
major options exist: (1) implement all eventcounts so that a 
given eventcount exists only in the cluster where it is most 
frequently accessed. All other clusters which need the value 
must make remote accesses to the value. (2) distribute the 
eventcount values, so that each cluster maintains a local 
copy. The latter option is that selected in this extension 
of MCORTEX. 
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producer: procedure; 



do while (FOREVER); 
t = ticket (S ) ? 

/* producers synchronize */ 
call await (MESSAGE_I N , t)» 

/* at this point in execution it's this 
processes' turn, but now must 
synchronize with the consumer */ 
j = read (MESS AG E_IN ) ; 
k = read ( MESS AGE_OUT ) ; 
if ( ( j - k ) >= N ) then 

call await( MESS AGE_ OUT, k + 1); 

/* if buffer is full then block */ 
message_buf fer ( t MOD N ) =recei ve_message ( ) ; 
call advance! MESS AGE_IN ) ; 
end; /* do while */ 

end? /* procedure */ 



Figure 2 



Multiple-Producer s/S ingle -Con sumer Relationship 



We define a local eventcount to be an eventcount 



which is not accessed outside the cluster. We define a 
remote eventcount as one which is accessed in at least two 
clusters. A producer at a cluster simply advances an 
eventcount. If the eventcount is a remote eventcount, the 
operating system generates the necessary commands which 
advance a local copy as well as the remote copies of this 
eventcount. The di st ri bu ti vi ty of the eventcount is 
entirely transparent to the producer and consumer. Only the 
operating system knows in which cluster the producers and 
consumers reside during their lifetime. 



By 


transmitting 


the eventcount 


value , 


t he 


robu s tness 


of the system 


is assured. 


Even if 


the 


t ran smi s si on 


message is lost 


or not properly 


received , 


the 



very next advance and a subsequent successful transmission 
will bring th° remote copy up to its correct value. The non- 
decreasing nature of the eventcount value accounts for this 
robustness . 

The design modifications to MCORTEX to allow the 
eventcount values to be distributed are fully presented and 
discussed in Chapter 4. 
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III. SYSTEM ARCHITECTURE 

A. HARDWARE REQUIREMENTS 

1. System Configuration 

A cluster of Real-Time Cluster Star (RTC*), as 
shown in Figure 3, is based on the INTEL iSBC 86/12A 
single board computer (SBC) with MULTIBUS serving as the 
intracluster bus. Figure 4 illustrates two clusters 
connected by the Ethernet LAN medium, which serves as the 
intercluster bus . 

Although only four SBC's are shown at each cluster, 
the limitation is entirely dependent on the number of bus 
masters. A bus master can drive the command and address 
lines: it can control the bus. Since multiple bus masters 
exist in this conf igurat ion , some means must be available in 
hardware to arbitrate their simultaneous reauests to use the 
MULTIBUS. A customized random priority bus resolver, 
designed specifically for this system, serves a maximum of 
eight bus masters. A bus slave, such as a RAM board, cannot 
control the bus and does not require arbitration circuitry. 

Two shared memory boards also share the MULTIBUS. 
4 32K RAM extension board is used as shared memory for 
process synchronization and control under MCORTEX and for 
CP/M-86 multi-user system control. A 64K R 4 M extension 
board provides additional shared memory required for user 
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FIGURE 3 Cluster Hardware Configuration 
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process data communications. Two hard disk systems are 
available for application process use within a cluster. The 
HEM EX hard disk system has a disk controller card which is 
placed in an odd slot (reauired for a bus master) in the 
MULTIBUS backplane. 

The InterLAN NI3010 Ethernet Communications 
Controller is a MULTI BUS-based single board processor which 
along with a transceiver provides the cluster with a 
complete connection to an Ethernet medium. This is the 
hardware extension to the cluster which allows MCORTEX to be 
distributed over the Ethernet. 

Although only two clusters are shown in Figure 4, 
the Ethernet specification [Ref. 9] allows for a maximum of 
1024 nodes. However, the limiting factor in MCORTEX is the 
number of clusters that can be addressed with the current 
packet routing algorithm. As will be discussed in Chapter 
4, the upper bound is 16 clusters which is more than 
adequate considering the current availability of only two 
NI3010 boards and three NI3210 boards (enhanced version of 
the NI3010) m the AEGIS Simulation Laboratory at the U.S. 
“)aval Postgraduate School, Monterey, California. 

An experimental system that contains both analogous 
and dissimilar components to that of ETC* is CM* [Ref. 10). 
The most important comparison is between CM*'s Kmap and 
FTC*'s NI3010 and Driver. The Kmap must effectively route a 
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FIGURE 4 Real-Tfme Cluster STAR Architecture 
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shared address between clusters, whereas the NI3010 Driver 
routes an entire datagram of information. The intercluster 
response time of Kmap is on the order of .36 microseconds , 
while the Ethernet is on the order of milliseconds. 
Therefore, the use of Fthernet is appronriate where 
relatively long messages with not very demanding response 
times are used. The Kmap has a relatively low transfer rate 
with fast response times. Additionally, the cost of the 
NI3010 and the Driver development, the flexibility, and its 
extensibility is far superior to the Kmap. The NI3210 is 
expected to further increase the speed and efficiency of 
intercluster communications. 

2. The iSBC 86/12 A Single Board Computer 

The iSBC 86/12A board includes a 16-bit CPU, 64K 
bytes of dynamic RAM, a serial communications interface, 
three 8-bit programmable parallel I/O ports, urogrammable 
timers, priority interrupt control, MULTIBUS interface 
control logic, and bus expansion drivers for interface with 
other MULTIEUS interf ace-compa t ible expansion boards. The 
iS'RC 86/12A board has an internal bus for all onboard memory 
and I/O operations and accesses MULTIBUS for all external 
memory and I/O operations. Therefore, local (onboard) 
operations do rot disturb the MULTIEUS interface available 
for parallel processing when several bus masters (e.g., DMA 
devices and other SBC's) are operating concurrently. 
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The iS3C86/12A provides a three level hierarchical 
bus structure. At the first, level, the 63^6 processor 
communicates through the on board bus with uo to 32K of ROM, 
with serial and parallel I/O ports and with the dual-port 
bus. Control and access to local RAM is orovided by the 
second level dual-port bus. The third bus level, the 
MULTIBUS interface, provides access to the MULTIBUS. The 
presently used wiring option prohibits off board access to 
local RAM, so that the local RAM is protected from external 
contaminati on . 

3. The 8086 Microprocessor 

The 8086 microprocessor, the heart of the single 
board computer, performs the system processing functions and 
generates the address and control signals to access memory 
and I/O devices. 

This high performance, general purpose 
microprocessor base of the iSBC86/12A contains an 
Execution Unit (EU) and a Bus Interface Unit (Bill). F.U 
functions are supported by instruction fetches and operand 
reads and writes conducted by the BIU. The B1U can stack 
instructions in an internal P.AM to a level of six deeo 
increasing EU efficiency and decreasing bus idle time. A 16- 
bit arithmetic/logic unit (ALU) in the EU maintains the CPU 
status and control flags, and manipulates the general 
registers and instruction operands. All registers and data 
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paths in the FU are 16 bits wide for fast internal 
transfers . 

The 8086 has eight 16 bit general purpose 
registers. Four byte addressable registers, known as the 



data registers, can 


be used 


wi thou t 


constraint 


in 


most 


arithmetic 


and logic 


onera tions 


The 


rema i n i og 


four 


are 


primari ly 


pointer 


registers , 


but 


can be 


u sed 


as 



accumulators. Additionally, the 8086 has four segment 
registers, an instruction pointer register and a flag 
register with nine status bits. 

The 9086 can address up to one megabyte of 
memory, ‘viewed’ as a group of segments, as defined by the 
application. A segment is a logical unit of memory that may 
be up to 64K bytes long. The segment registers point to the 
four currently addressable segments. Programs obtain access 
to code and data in other segments by changing the segment 
registers to point to the desired segments. 

It is convenient to think of every memory 
location as having two kinds of addresses, physical and 
logical. A physical address is a 20-bit value that ur.inuely 
identifies each byte location in the megabyte aidress space. 
Physical addresses range from 0H through FFFFFH . Frograms, 
however, deal with logical instead of physical addresses. A 
logical address consists of a base value and an offset 
value. Whenever the 8IU accesses memory - to fetch an 
instruction or to obtain or store a variable - it generates 
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a physical address from the logical one. This is 

accomplished by shifting the base value left four bits and 
adding the offset. The resultant 20 bit value is then used 
to access memory. 

4. Ethernet 

Ethernet is a local area network (LAM) optimized 
for the high-speed exchange of data between information 
processing eouipment within a moderate-sized geographic 
area. It is the result of a collaborati ve effort by Digital 
Equipment Corporation, Xerox Corporation, ani Intel 
Corporation. The Ethernet, specification [Ref. 9] provide 
precise, detailed design information for a baseband local 
area network and, for brevity's sake, only general aspects 
pertaining to the RTC* implementation will be discussed 
here . 

Ethernet implements the lowest two layers of the ?- 

layer OSI/ISO model [Ref. 11 pp . 46-53]. The Data Lirk 

layer defines the format and addressing of packets that are 

broadcast over the "Ether", detects transmission errors, 

controls access of the network by nodes, and allocates 

channel capacity. These functions are, in fact, implemented 

in the MI3010 Ethernet to MULTIBUS communications controller 

board. The functions carried out by this layer for sending 

and receiving transmissions are as follows. 

a. Data Encapsulation/Decapsulation 

Defining the format of message packets - the 
different fields of information within the packets. 
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Constructing packets from data supplied by the 

nodes through the higher layers; disassembling network 
messages and supplying data to the higher layer 
protocols of the node. 

Addressing - handling of source and destination 

addresses . 

Error detection - physical channel transmission errors. 

b. Link Management 

Channel allocation - the length of time of channel use 
is determined by the packet size. 

Channel acepss - access to the channel is controlled by 
a contention-avoidance-and-resolution technique, called. 
CSMA/CD, part of which is carried out in each of thp 
two layers. The Data Link level responds to the channel 
or carrier sensing of the Physical layer. This means 
that the sender defers sending in the case of traffic, 
sends in the absence of traffic, and. backs off and 
resends the message a random time interval later in the 
case of collisions. 

The construction and processing of the packets that 
are transmitted on the Ethernet, is oart of the data 
encapsulation function of the Data Link layer. The Ethernet 
packet is made up of five fields, as shown in Figure 5 (all 
bytes are eight bits in length). The smallest total size of 
a packet transmitted over Ethernet is 64 bytes, and the 
maximum size of a packet is 1,518 bytes (these figures do 
not include the eight-byte preamble). Details of the fields 
are included in [Ref. 91 , so the only field discussed in 
detail will be the destination address. Knowledge of this 
field will simplify the discussion of the packet routing 
algorithm presented in Chapter 4. 
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A packet can be sent tc one, several, or all nodes 

simultaneously, through unique broadcasting and addressing 

capabilities. The address of the node (or nodes) that th° 

packet is intended for is placed in this field, which is six 

bytes in length. A node address can be one of two types: 

Physical address - the unioue address of a single node on 
ary Ethernet. 

Multicast address - a multidestination address of one or 
more given nodes on a given Ethernet, of which there are 
two kinds: 

multicast group address - virtually any number of nod^ 
groups can be assigned a group address so they are all 
able to receive the same packet in a single transmission 
by a sending node. This is a key feature ir. the packet 
routing algorithm to be discussed in Chapter 4. 

broadcast address - a single multicast address by which 
a packet can be sent to the set of all nodes on a given 
Etherne t . 

The first bit in the Destination Address field is 
set to indicate a physical or multicast address. The 
remaining 47 bits specify the address itself. If a packet is 
to be broadcast to all nodes, the 47 bits are all set to 
"l." The 47 remaining bits allow for 2 ** 47 (over 142 

trillion) possible addresses. 

The Physical Layer of Ethernet provides a ten- 
mil 1 i on-bi t-per-second channel over a coaxial cable medium. 
It specifies all the essential physical characteristics of 
Ethernet, including bit encoding, timing, voltage levels, 
and two compatibility interfaces. 
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The main functions of this layer are: 

Data encoding/decoding: 

Generation and removal of 64 preamble bits before each 
packet is transmitted for synchronization and timing of 
messages . 

Bit encoding and decoding - between the binary encoded 
form of the Data Link level and the phase encoded form 
reouired for transmission on the coaxial cable. 
Manchester phase encoding is specified for all data 
transmitted on the Ethernet at a data transmission rate 
of ten million bits per second (10 Mbps). 

Channel Access 

Transmission and reception of encoded data. 

Carrier sense - monitoring the channel for traffic and 
signaling the Data Link layer if traffic is detected. 

Collision detect - signaling the Data I,in.< layer, 
during transmission, when a collision is detected. 

Two important compatibility interfaces, the 

transceiver cable interface and the coaxial cable interface, 

are also specified in the Physical layer. Detailed 

information regarding these interfaces is contained in 

f Ref . 91 . 



5. NI?01C5 Ethernet Communication Controller Board 

In the following discussion of the NI3010's 
operation, reference to a ’host'’ is synonymous with a single 
board computer in a cluster which contains the device driver 
for the NI3010 board. Details concerning this driver's 
system role are contained in Chapter 4. 

The NI3010 ECCB is a MULT I BUS-c ompa 1 1 ble component 
that implements layers one and two of the I30/OSI 7-layer 
model. Although programmable as a polled or interrupt-driven 
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DMA device, it is used entirely as an interrupt-driven 
component in this implementation. The NI3010 serves as a bus 
master when controlling the DMA operations between the 
NI3010 buffers and the host's memory, and as a slave to the 
commands of the host. 

The host controls the NI3010 by writing to onboard 
registers which are MULTIBUS addressable I/O ports. 
Depending on the state of execution, the host may direct the 
NI3010: 

(1) To perform a load command 

(2) In preparation for a DMA operation - load a memory 
address and a byte count, or 

(3) To enable an interrupt register, to inform the host 
when a directed operation is complete. 

The host programs the NI301-0 by writing a command 
to the command register, whose I/O address is currently set 
at BOH (base register). The command function codes are 
contained in Table 3-1 of [Pef. 12]. After issuing a 
command, the host must check for a value in the Command 
Status Register. The details of this read ooeration are 
covered in [Ref. 12], but briefly: Any value other than zero 
or one in the Command Status Register, following execution, 
represents a board failure. If at any time during MCOnTEX 
execution a diagnostic appears that indicates an NI301O 
board failure, the RTC* system operator can run a diagnostic- 
program that fully exercises the board. The code and 



39 



invocation procedures for this diagnostic routine is 
contained in Appendix L. 

Of particular importance is the requirement to read 
the Command Status Register at the beginning of any code 
that controls the NI3010. This is neccessary because of the 
power-up diagnostic that runs at system start-up or due to a 
MULTIBUS reset. This automatic testing feature places a 
value in the Status Register that must be read to clear the 
register before any commands can be issued to the NiI301P. 

The NI3010 transmit process consists of obtaining 
data packets from shared data memory, via a DMA operation, 
forming them into Ethernet frames, and successfully 
delivering them to the intercluster bus (the "Ether’). 

The following describes what happens when a 
transmit packet goes from MULTIBUS memory to the ^13010: 

(1) The host writes an interrupt code of zero to the 
interupt enable register on the NI3010. Writing this 
register clears the ^13010's interrupt line 
■currently set for interrupt 5). 

Note: This step ensures that the DMA controller 
does not start a DMA transfer as soon as the byte 
count registers contain a non-zero value. 

(2) The host writes a 24-bit MULTIBUS memory address into 
the NI3010's bus address registers. 

(3) The host writes the packet's byte count into the 
NI3010's byte count registers. 

(4) The host initiates a DMA transfer by writing to the 
interrupt enable register an interrupt code of 6 . 
The NI3010 will now interrupt the host processor when 
it completes the DMA transfer. 
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(5) The NI3010 moves the transmit packet from host memory 
to its transmit buffer (only one packet at a time may 
be resident in this buffer). After accepting each data 
byte, the DMA controller increments the address in the 
bus address registers and decrements the byte count in 
the byte count registers. When the byte count reaches 
zero and its transmit register is empty, the NI3010 
inter rupts the host processor. This is a transmit- DMA- 
done (TDD) interrupt. The transmit data is now stored 
in the transmit buffer. 

(6) To transmit this data or the Ethernet, the host issues 
a Load transmit Data and Send command (29H). The 
NI3010 carries out the command, ref lec ti n.g its status 
in the register. The host must read the status 
regi s ter . 

The following describes what happens when a receive 
packet goes from the NI3010's receive aueue (16K byte 
capacity) to MULTIBUS memory: 

(1) The host issues an interrupt code of 4. This enables 

a receive-block-available (RBA) interrupt from the 
N 1 301 0 . 

(2) The host gets a receive-block-available interrupt. m he 
host now knows that the NI3010's receive Queue has a 
frame awaiting transfer to MULTIBUS memory. 

(3) The host writes an interrupt code of zero to the 
NI3010's interrupt enable register. Writing this 
register clears the NI3010's interrupt line. 

Note: Just as in the transmit process, this step 

ensures that the DMA controller does not start a 
DMA transfer as soon as the byte count register 
contains a non-zero value. 

(4) The host writes the 24-bit MULTIBUS memory address 
into the NI3010's bus address registers. 

(5) The host writes the byte count of its MULTIBUS buffer 
into -the NI3010's byte count registers. 

(6) The host initiates a DMA transfer. It does this by 
issuing a r interrupt code of 7. This also enables a 
recei ve-DMA-done interrupt (RDD) from the NI3010. 
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(7) The NI301O moves the r°ceived frame from its receive 
aueue to host memory. The NI3010 preeeeds the packet 
with a frame status byte, a null byte, ard two bytes 
containing the frame's byte length. After transfer ring 
each data byte, the DMA controller increments the 
address in the bus address registers anc decrements 
the byte count in the byte count registers. The ''JI3010 
generates a recei ve-DMA-done interrupt when it 
finishes transferring the frame or when the byte count 
reaches zero. 

(S) The host responds to the RDD interrupt by issuing ar 

interrupt code of zero, disabling the interrupt from 

the NI3010 board. 

The determination of the order in which commands 
are given is entirely dependent on the application. The 16K 
byte receive buffer allows the host to read this buffer (via 

RDD interrupt operation) at its own convenience. This 

buffers the MULTIBUS from the unpredictable arrival times of 
intercluser traffic, consequently reducing the time-critical 
service requirements on the receiving cluster. In contrast 
is the 2K byte, single packet, transmit buffer. The host 
system should strive to favor outbound packets to reduce the 
processing delay by any processors in the cluster. 



B. SOFTWARE SFRVICES 

1. Operating Systems 

A copy of a kernel of MCORTEX resides in each 

processor's local memory and is a part, of the address space 
of each local process. Additionally, GLOBAL memory is 
accessible to MCORTEX to facilitate interprocess 
synchronization. Processes are scheduled for execution by a 
kernel of MCORTEX on each SBC. Any process that advances an 
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eventcount or calls the await primitive ’’risks" surrendering 
the CPU to a higher priority ready to run process, A call to 
the advance primitive always results in a call to the 
scheduler. If the calling process is still the highest 
priority "ready to run" process, it will continue in its 
execution, otherwise another virtual processor will he 
scheduled to run and the original process will he blocked 
(’ready’ if an advance operation, 'waiting' if an await 
operation ) . 

Tr the event there are no user processes in the 
ready state, the kernel's idle process will run. This 
process blocks itself every 4 milliseconds and calls the 
kernel scheduler. If any offboard operation caused an 
onboard process to be readied, as the only process "ready to 
run”, it will be scheduled. The idle process is always 

"ready to run", of course, but it has the lowest possible 
priority . 

This implementation of ('’CORTEX is a major change in 
the philosophy of previous versions, whereby a system 
interrupt under MCORTEX control, in conjunction with 
interrupt flags maintained in GLOBAL memory, provided 
communication initiation between real processors. Upon 
receiving an interrupt, each processor checked its flag in 
GLOBAL memory to determine if the interrupt was intended for 
a process in its local memory. If not, the process 
executing at the time of the interrupt continued. Otherwise 
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a call was made to the MCORTEX scheduler ar.d the highest 



Drionty ready process was given control of the CPU. For 
comm uni ration between processes in local memory, no 
interrupt was issued, a call to the scheduler was made 
directly. 

The use of the interrupt was inconsistent with the 
philosophy of switching processes only at "safe” points in 
their execution. These "safe" points were required because 
of non-reentrant PL/I-85 user process code. An interrupt 
must not occur during a call to a PL/I procedure that is 
shared among multiplexed processes. Therefore, the original 
design had a design error which needed correction. 

Also, the use of a preemptive interrupt to signal 
a possible change to all real processors in a cluster was 
somewhat counterproductive. To cause all real processors to 
be disrupted in their execution, just because as few as one 
virtual processor was made ready, is unjustifiable. However, 
this preemptive interrupt structure has been maintained in 
MCORTEX in the event a high priority process must be 
scheduled. A primitive known as PREEMPT, provides this 
capability. The PREEMPT primitive is the mechanism to 
schedule time urgent processing which is vital in real-time 
systems. PREEMPT, however, must be used carefully and 
sparingly. Processes that are time critical must only use 
reentrant code, so that when a return from the time critical 
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process is completed, the statp of the system is rot 
d i s t urbed . 

Access to MCORTEX is through the supervisor at the 
outermost layer of the MCORTEX four level structure 
discussed by Klinefelter [Ref. 5 : pp. 44-46]. 

Also resident in each local memory, if reooired, is 
the CP/M-86 operating system. In this configuration the 
full range of CP/M-86 utilities, [Pef. 13] and [Fef. 14], is 
available to the user. Additionally, development of user 
processes can make use of any of the broad scope of 
commercially available products compatible with CP/M-86. 
Figure 5 gives a representation of the locations of the 
system code. The diagram includes the location of DDT-86 as 
required for a debugging session. A developer of user 
processes should anticipate needing this powerful debugging 
tool? the space should remain reserved. Plso depicted are 
the locations of the MCORTEX/MXTR ACE loaders. During 
load, loader memory is not reserved, and care must be taken 
to ensure that a CMD module's code or data section does not 
overwrite it. It is permissible, however, to include this 
memory as part of a module stack or free space, since these 
structures are developed at nodule runtime when loader 
functions have been completed. 

2. User Processes 

User processes may be located in areas indicated in 
Figure 6. Additionally, if CP/M-86 utilities are not 
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FIGURE 5 Ethernet Packet Format 
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reou i red , 



memory 



reserved for CP/M-86 may hold user 



processes . 

Descriptions of processes in memory are provided to 
MCORTEX through the CREATE$PROC primitive. This MCORTEX 
function gives the process a unique identification number, 
priority, stack (SS and SP registers), next execution 
address (CS and IP registers), data segment { ES register), 
and extra segment (ES register). MCORTEX establishes the 
process initial context using this information to create a 
virtual processor, which is a software abstraction of a real 
processor. The virtual processor exists as a combination of 
data, both in GLOPAL memory, and in each process stack. When 
executing, the virtual processor becomes identical with the 
real processor state. Relinquishing the CPU forces the 
virtual processor status into GLOBAL memory and the process 
stack into local memory. 

As described by Rowe [Ref. 6 : p. 28], special 
effort has been made to accommodate processes created under 
PL/I-86 and linked using LINK86. LINE86 concatenates all 
PL/I -86 code segments into one segment and data segments 
into one segment. Thus, PL/I-86 processes consist of a 
series of contiguous code segments followed by a series of 
contiguous data segments. Additionally, at run time PL/I-86 
routines create a stack following the data area, and a free 
space following the stack. The resulting configuration is 
shown in Figure 3 of [Ref. 6], 
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Access to all data areas resulting from a single 
link, is referenced to a common data segment. Stack 
pointers are referenced to the stack segment register, and 
free space pointers to the extra segment register. 

Additionally, some PL/I-86 runtime routines assume the 
contents of all three segment registers (DS, SS, ES ) are 
identical . 

The MCORTEX CREATF$PROC parameters include the 
absolute location of process start, stack, and data. For 

this reason it is advantageous to locate processes 

absolutely when linking. LINK86 provides such an option 
[Ref. 13 : p. 7.6], however, the ABSOLUTE optior is 

applicable to the entire CMD file created and cannot be used 
to distribute the file non-contiguously in memory. 

Rowe [Ref. 6] experienced some difficulty using 
LINK86 as described in ("Ref. 13]. His observation was 
entirely correct, but it was easily corrected by generating 
a rew CP/M-86 operating system using Version 1.1 CCP and 
BTOS (integrated with a modified BIOS). Version 1 . ^ 
contained an error that caused the 128 byte header, 
preceding CMD files, to be parsed incorrectly at file load 
time. Details concerning this header are contained in 
[Ref. 14]. The BIOS was modified due to the removal of the 
bubble memory board from the multi-user CP/M-86 system. This 
process of generating a new CP/M-86 operating system is 
described in adequate detail in [Ref. 14]. The details 
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concerning the multi-user CP/M-96 system BIOS is 
in [Ref. 15l and will not he reiterated here. 



described 
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IV. DETAILFD SYSTEM DESIGN 



A. DESIGN ISSUES 

1. Real-Time Processing 

Real-Time processes are of a time-critical nature, 
and as such are always resident in memory. The time required 
to swap a real-time process out of memory, to maire room for 



another , 


would 


consume 


the 


very 


same resource 


l e i r g 


allocated 


- the 


CPU, 


The 


early 


designers of 


MCORTEX 


considered 


this 


issue 


carefully 


and the result 


is an 



operating system that minimizes context switching overhead. 
MCORTEX processes reside permanently in memory once loaded) 
and only CPU registers, critical to a context switch, are 
modified. Just as imoortant are issues such as: 
(1) allocation of shared resources, (2) process integrity, 
'3) process synchronization, and (4) interprocess 
communication. 

2. Shared Resources 

Within a cluster (Figure 3) are three critical 
shared resources : the NI3010 ECCB (i.e., Ethernet), common 
memory, and shared memory itself. The hierarchical Dus 
structure limits the access of each real processor to common 
memory and shared memory, and the bus arbiter grants access 
in a random manner. Each processor executes processes in its 
own local RAM and only makes memory accesses outside that 
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range when MCORTEX primitives (access to common memory) are 
used or data computed by a producer must be placed in shared 
memory for consumption by another process within that 
cluster. MCORTEX performs its functions by setting up a 
section of common memory called GLOBAL memory. Table 1 shows 
how this shared resource is logically organized (Appendix H 
contains the actual memory locations). 

I' c cess to GLOBAL memory is resolved through the 
combination of a hardware bus lock (LOCK prefix preceding a 
machine level instruction), and a software lock 
( GLOBALSLOCK ) located in GLOBAL memory. MCORTEX primitives 
that access GLOBAL memory set the hardware hus lock tnrough 
the PL/M-86 function L0CK$SET [Ref. 16]. The real processor 
executing the kernel, that is executing LOCK$SET , is 
given sole access to the MULTIBUS for the duration of a 
single instruction. A LOCK prefix preceding an XCHG 
instruction causes a value in a register (contents 77H ) to 
be exchanged with GLOBAL$LOCK. The processor then examines 
the contents of the exchange register. If the register now 
contains zero, the processor is granted access, if not, the 
kernel repeats the procedure until a zero is obtained from 
GLOBAL$LOCK. The XCHG instruction reauires two bus cycles to 
swap 8-bit values, thus without the LOCK prefix it is 
possible for another processor to obtain the bus between 
cycles and gain access to the partially-updated GLOBAL$lOCK 
semaphore. When rel inqu i shi ng the software lock, the kernel 



52 



TABLE 1 



GLOBAL MEMORY 



OFFSET MNEMONIC TYPE/I NIT REMARKS 



0 


LOCALS CLUSTER$ A DDR 


W 


X 


Address of this cluster 




EVC$TBL( 100) 


S 




Event coun t table 


2 


EVCSNAMF 


E 


Y? 


Event count name 


3 


VALUE 


W 


0 


Event count value 


5 


REMOTF$ADDR 


w 


FF 


Remote addr of remote 
copy 


7 


THREAD 


E 


vv 


Event count thread 


V?M(MAXACPU * M AX$ VPMS $C ?U ) 










S 




Virtual processor man 
( M AX $C PU = 10, 








MAX$ V PMS $ CPU = 10) 


602 


VPS I D 


E 


X 


Virtual processor ID 


603 


VPSSTATF 


B 


X 


Virtual processor state 


604 


VP$PRI OP ITY 


B 


X 


Virtual processor pri . 


605 


FVC $ AW$V A LUF 


W 


X 


Count awaited 


607 


SPSREG 


w 


X 


Stack pointer register 


609 


SSSREG 


w 


X 


Stack segment register 


1602 


GLOE ALSLOCK 


B 


0 




1603 


NR $RPS 


B 


0 


# of real processors 


1604 


NRSVPS (MAX$CPU ) 


E 


0 


# of virtual processors 








(one 


byte for each possible 








CPU, 


M A X $ C P U currently = 10) 


1614 


HDW$INT$FLAG(MAX$CPU) 










B 


X 


H/W interrupt flag (one 
for each possible CPU, 
MAXSCPU currently = 10) 


1624 


EVENTS 


B 


1 


Number of events 


1625 


CPUSI NIT 


E 


0 


Log in CPU number 


1626 


SEQUENCERS 


B 


0 


Number of sequencers 


SEO$TABLE(100) 


S 




Sequencer table 


1627 


SEQSNAME 


E 


X 


Name of sequencer 


1623 


S EQ$ VALUE 


W 


X 


Value of sequencer 


1927 











B - byte W - word S - structure X - not initialized 
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merely sets GLOBAL$LOCK to zero. The "granularity of 
locking by the kernels, is all of GLOBAL memory, i.e., no 
two kernels have access to GLOBAL memory simultaneously. 

Users have no access to GLOBAL memory, however 
MCORTEX provides for user control of shared resources 
through data held in GLOBAL memory. Sequencers, located in 
the sequencer table section of GLOBAL memory, are used to 
provide a turn taking mechanism. Each shared resource is 
assigned a corresponding sequencer. When processes require 
a resource, they reauest a turn through the supervisory 
function call TICKET, _ specifying the applicable sequencer. 
TICKET returns a number indicating the callers turn at the 
required resource. TICKET advances the sequencer value in 
GLOBAL memory so that succeeding reouests receive higher 
numbers. Given the situation where a "busy wait” is not to 
be employed, a process requesting the resource then makes 
another supervisory call, this time on AWAIT, providing both 



an identification 


of the resource and 


the 


process turn 


number . 


If the 


resource is not busy, 


the 


process will 


receive 


immed ia te 


access, otherwise the 


process 


gives up the 



CPU. 

3. Eiocess Integrity 

The design of MCORTEX relies heavily on user 
cooperation for process integrity. The supervisor controls 
access to the MCORTEX functions, but even this is a software 
control and a process that intentionally or inadvertently 
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destroys GLOBAL data would be disastrous. Although local RAM 
of a processor is inaccessible from MULTIBUS, thus protected 
from a 'runaway' process, common memory and shared memory 
are not. Protection from this type of failure reauires 
hardware protection not presently in the system. The low 
cost of microcomputers however, allows for redundant tack 
up systems which can limit the effects of such failure due 
to a processor hardware fault. 

4. ElH£P§.s Synchrony za t ion 

Process synchronization is accomplished under 
MCORTEX through the fun-ctions ADVANCE, AWAIT, and PREEMPT. 
These synchronizing primitives are supported with the 
functions CFEATE$EVC , CPEATF$SEO, READ, DEEI N E$CLUS TEP , 
DI STRIBUTION$MAP , and TICKET. Consumer processes use AWAIT 
to ensure that data they require is ready. Producer 
Drocesses use ADVANCE to inform consumers that a new 
iteration of data has been computed. PREEMPT is used by one 
process to directly ready another orocess. This primitive 
is for activation of high priority system processes of a 
highly time critical nature. A call on a synchronizing 
primitive may, or may not result in relinquishing the CPU. 
The CPU is always assigned to the highest priority ready 
virtual processor on each board regardless of which 
synchronization function envoked the scheduler (except for 
PREEMPT, of course). 
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before using ADVANCE or AWAIT, an eventcount rust 
be created using CRFATE^EVC. Consumers and producers then 
communicate using the agreed upon eventcount. The current 
value of an eventcount can be determined through a call on 
READ. The functions of CREATE$SEQ and TICKET are as 
discussed earlier, but with broader applications. 

The only entity presently distributed by MCORTEX 
over Ethernet is eventcounts. However, this feature alone 
allows distributed processes to synchronize. The manner in 
which processes synchronize is no different than that 
already discussed. The fundamental issue then becomes the 
means by which an eventcount of interest can bp made 
available to a producing or consuming process. 

Eventcounts nay be used in any number of 
combinations. Producing and consuming processes may bp 
resident in the same cluster, different clusters, cr mixed 
'’i.e., a producer and one consumer in the same cluster, with 
another consumer of the same data type in another .cluster ) . 
Processes are not aware, however, as to their own 
distribution - they continue to advance eventcounts arid 
await values /just as they always did. This transparency is 
provided through the primitives DEFI NE$CLUSTER and 
DISTRIBUTION $MAP. 

DEFI NE$CLUSTER is a procedure that assigns a 16-bit 
address (the last two bytes of the destination field of an 
Ethernet packet) to a cluster, and DISTRIBUTION$MAP causes 
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the "remote$addr ’ field of an eventcour.t name (see Table 1) 
to be assigned a value. It is necessary to statically manage 
the distribution of eventeounts, .iust as it is necessary to 
statically manage blocks of shared memory for user 
processes. It is a decision that must be made by personnel 
responsible for the development of AEGIS software that will 
run on PTC* under MCORTEX. 

A user process does not need to know the address of 
the cluster in which it resides, nor is it required to know 
the cluster addresses of processes that it synchronizes 
with. Therefore, DEFINE$CLUSTER and PISTRIPUTION$MAP are not 
primitives called by a user process, but by a system 
process that calls these primitives in its i ni t ia 1 i za t i on 
module. As mentioned before, eventeounts must be created 
prior to their use. The convention of MCORTEX is that user 
processes do not create or define them (as a constant) ir 
any way. The same system process that calls DEFINS$CLU5TFR 
and DISTR I RUT I0M$MA P , also creates all user and system 
eventeounts and sequencers. Thus, symbolic names only are 
used by user processes at run-time and the system 
initialization module at creation time, providing a level of 
security. It will be seen later how this security is even 
further enhanced. The manner in which user and system 
processes are created is covered in complete dptail ir 
Chapter V. 
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5. Interprocess Communication 

MCOFTEX, at this stage of development, does not 
provide any means by which data (produced) can be 
transmitted between clusters. Within the same cluster, 
however, shared data is stored for consumption in the 64K 
byte FAM shared memory board. Any buffering of data by user 
processes must be done explicitly. There is no dynamic 
allocation of this resource. 

With Ethernet serving as the intercluster bus, with 
eventual data transfer planned, due consideration must be 
eiven to the distribution of user processes within RTC*. 
Processes with a high interprocess c ommun ica t i on rate should 
be located as close together as possible. When this is not 
feasible, a fairly high efficiency penalty will have to 
be paid. The Ethernet is clearly the highest level bus in 
RTC* and memory located at a remote cluster must be viewed 
as the highest level memory in the memory hierarchy of RTC*. 
As such, a nonlocal memory access should be avoided as much 
as possible, but it will never be entirely avoidable. 
Clearly average memory access timps will drop as the iate of 
local memory references increase. In- a distributed system 
such as RTC*, the nonlocal "hits’’ on memory should be kept 
to a minumum. To reiterate, if high volume communicating 
processes can possibly reside in the same cluster, then they 
should be so located. 
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B. ETHERNET »CCESS 



1. Cluster Input /Output 

MCOFTEX must provide a means to transmit copies of 
values of eventcounts to a remote cluster. This operation 
must be entirely transparent to user processes, since they 
have no knowledge of their di st ri tut ivit.v . 

Figure 7 illustrates an abstraction of the flow of 
data and control signals necessary to achieve a transmission 
over Ethernet. It embodies the principles of a flow chart, 
as well as an abstraction of processing modules and control 
signals. Refer to Figure 7 for the following discussion. 
The user processes resident in either SBC 1 or 2 advance an 
eventcount through the ADVANCE primitive operation. The 
ADVANCE primitive makes a determination as to the locality 
of the eventcount and calls the internal routine SYSTEM$I0 
only if the eventcount is distributed, i.e., a remote copy 
is needed at another cluster. The SYSTFN$IO routine makes a 
determination as to the eventcount communication path 
(currently the only option is Ethernet). Since the path is 
Ethernet, the SYSTEM$I0 routine writes an Ethernet Reouest 
Packet (FPP) to a circular buffpr in shared memory, known 
as the Ethernet Reouest Elock (ERP). 

f s a shared resource among MCCRTEX kernels, an ERP 
slot in the FF.E must be arbitrated for. The TICKET mechanism 
is employed in SYSTEM$IO, and the circular buffer (ERE) 
contains ERP's that must be processed. The SYSTEMSIO routine 
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FIGURE 7 Intercluster Input/Output Processing 
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increments a system reserved eventcount (ERB$WRITE) to 
notify the NI3C1C Device Driver and Packet Processor that an 
ERP has been written. This "advancing" of ERB$>/rITE also 
allows any other kernel executing the SYSTEM$I0 routine to 
continue if it was attempting a simultaneous write to the 
ER3. The NI3010 Device Driver and Packet Processor 

(hereafter referred to as the Driver) is a consumer of ERP's 
and also processes Ethernet packets received from other 
clusters. As a consumer of ERP's it is a system urocess of 
a cyclic nature that is scheduled in the same manner as user 
processes. However, this routine is dedicated to high 
density I/O operations, and as such is never blocked. In the 
highly unlikely situation where there are no ERP's to 
consume or packets to receive and process, the Driver idles 
in a 'busy wa i t . " 

Currently the only type of ERP to be processed is 
an 'eventcount type', whose format, is shown in Figure 8. T v e 
NI3010 Driver decodes the ERP and based on the information 



Byte 1 Byte 2 Byte 3 Byte 4. 

+ + 

iii i 

iii i 

! Eventcount ! Eventcount ! Value ! 

! Type ! Name ! i 

iii i 

iii i 

+ + 



Figure 8 Ethernet Request Packet Format 

it sets up a transmit-data-block in shared memory. In fact, 
this block is the Ethernet packet, less the 64 bit preamble 
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and 4-byte Frame Check Seauenre (FCS). The Driver then 
initiates a Tra nsmi t-DKA-Done ' TDD ) operation to transfer the 
block to the transmit aueue of the NI3010. The Driver 
follows up the TDD interrupt with a Load and Send command 
(29H) to the NI301O directing it to transmit the packet over 
Ethernet . 

Inbound packets are processed. by the Driver 
through the Receive-Block-Avai la ble (RBA) and Receive-DMA- 
Done (HDD) operation seauence desribed in Chapter 3. The 
Driver favors outbound packets, to avoid the possibility of 
a bottleneck due to a ’clogging up’ of the ERE. When it* 
does set up for an RBA interrupt, it will continue to the 
conclusion of processing the packet received. Following the 
DM* of the packet to the recei ve-da ta-bl oek area in shared 
memory, the Driver decodes the data fields of the packet 
(Figure 9) and calls the appropriate MCORTEX synchronization 
primitives. The Driver continues to operate in this manner, 
determining via an eventcount value (incremented by 
SYSTEM$I0) whether or not an FRP exists in the FRE that 
needs to be processed and in the absence of one receives ar 
inbound packet for processing. 

The truly asynchronous nature of the Ethernet 
service should be apparent. Once SYSTEM$IO deposits an FRP, 
it returns immediately to the user process. The user process 
is not held up in its execution due to a transparent reouest 
for system input/output. The Ethernet Request Packet is the 
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embodiment of the reauest, and in different forms is passed 
between various clusters of RTC*. It contains all the 
information needed to perform the operation independently of 
the reauesting process. 

C. PACKET ROUTING ALGORITHM 

Thus far, all illustrations and discussions of FTC* 
pertained to only two clusters, but this should not be 
construed as a limitation. Given that more than two 
clusters can exist in RTC*, some methodology must exist to 
route packets to as few as one and to as many as needed (up 
to the maximum clusters that exist). 

The established convention is that no cluster will send 
a packet to itself. If an eventccunt is advanced that 
reauires a local update and one remote update (to one 
cluster) then only the local copy will be updated and only 
the cluster that is to receive the eventcount value will 
receive a packet. This clearly reduces needless packet 
processing at a cluster that has 10 interest in that 
eventcount, i.e., there are no producers or consumers 
interested in its value. Therefore an algorithm had to be 
developed that selectively eliminated packets from being 
transmitted to an inappropriate cluster. 

The NI3010 has an packet addressing mode known as GROUP 
addressing, whereby multicast addresses can be loaded into a 
multicast address table onboard the N 13010 . Provided this 
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table is loaded prior to NI3010 use, any packet received 
that has bit 1 of the destination address field set to one 
(i.e., the first byte is odd) is interpreted as a multicast 
packet and a lookup is done in the table. If a match of the 
destination address is found in the table, the packet is 
loaded in the NI3010's receive queue . If the Driver (Figure 
7) enabled an RBA interrupt, the NI3010 will issue ar 
interrupt signifying that a packet has been received for 
this cluster. The Driver will then process the packet 
accordingly (format shown in Figure 9). 

The Driver programs the NI3010 to accept GROUP addresses 
in its multicast table, depending on the distribution of 
eventcounts in RTC*. The Driver (Appendix K) has a module 

DATA FIELD 

Byte 1 Byte 2 Byte 3 Byte 4 
+ + 



1 

1 

Packet ! 


i 

i 

Type 


Value 


1 

I 

1 

t 


T ype | 


Name j 




1 

1 


( EVC ) j 


(EVC ID) | 




1 

1 

+ 



* - Packet is decoded based on 
byte 1 . 



Figure 9 Eventcount Type Ethernet Packet 

that reads the local cluster address and group addresses 
from a file called "addr es s . d at " . The local cluster address 
is used to set up the physical address of the NI3010 .see 
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[Ref. 12] for details). Any packets on Ethernet that has 
one of the group addresses or the physical address in the 
destination field is received and processed. 

For packets to be transmitted over Ethernet, only the 
last two bytes of the destination field is programmable. 
This minimizes the amount of data that must be maintained 
and manipulated for packet addressing. The 'remoteSaddr ' 
field in the EVFNTCOUNT TABLE in GLOBAL memory contains the 
two bytes. 

Figure 10 contains an example of a logical connection of 
clusters (they are all physically connected by Ethernet) 
dependent on the dis tributi vi ty of the eventcoun ts . The 
lines, with numbers adjacent to them, represent a 
connectivity relationship of classes of data whose producers 
and consumers synchronize on certain eventcount values. The 
vertical dotted lines represent a partioning of process 
types and group addresses, shown below the clusters. The 
number in the cluster block is the physical address of each 
cluster. It can be seen that a producer of Type 1 data, a 
consumer of Type 2 data, and a consumer of Type 3 data are 
all present in cluster 8. A logical connectivity exists 
between all clusters as a result of the Type 1 data (Type 1 
consumers exist at clusters 1,2, and 4). An advance by 
producer PI must cause a packet to be sent to clusters 1,2, 
and 4. 
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PI - Producer of Type 1 Data 
Cl - Consumer of Type 1 Data 



Figure 10 Ethernet Packet Routing 



Consider the logical connectivity of a certain 
eventcount to be represented by a binary one at each 
cluster it connects. Therefore, for the Type 1 eventcount 
the 4 cluster connectivity would result in 1111 bas^-E or 0F 
base-16. By performing an exclusive-or operation on 0FR 
with the producer's own physical address (03 base-16, in 
this case) a result of 0007H would be formed. Since 
consumers at clusters 1,2, and 4 are interested in Type 1 
data, the NI3010 Driver must program 0007H into the 
multicast table. In reality the address <03-00-00-00-00-07) 
(6 bytes in length, first byte being odd) would appear as an 
entry in the table. 

Continuing with this example, consider the Type 4 
connectivity. The binary connectivity is Cl 1 1 and by 
performing an exclusive-or with the value 0001H (address of 
cluster 1, where the producer is present) results in 000611. 
The NI3010 at clusters 2 and 4 must have <03-00 -00-00-00-067 
in the multicast table. P 11 other values shown in Figure 10 
are derived in an analagous manner. 

The " remote$adder" field of an eventcount contains the 
binary connectivity discussed above. The ADVAMCE procedure 
of KCORTEX makps a test to see if the remote$addr field is 
eaui-valent to the ’’local $cluster$addr" (as defined by the 
DEFI NE$CLUSTER primitive). If they are the same then 
SYSTEM$IO is not called and intracluster processing 
continues. If they are not eauivalent, then an exclusive-or 
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operation is performed on the remote$addr field 
1 remo te$addr XOR local$cluster$addr ) and the resultant two 
byte value and appropriate eventcount information is 
written to an FRP. The NI.3010 Driver deaueues the ERP and 
forms the appropriate packet format (Figure 9), initiates 
the DMA operation to the NI3710, and issues the Load and 
Send operation. 



68 



V. PROCESS DEVELOPMENT AND THE MCORTEX LOADER 

a. PROCESS DEVELOPMENT 

1. PL/I“?5 User Processes 

Rowe ("Pef . 6] is responsible for the integration of 
MCORTEX into the CP/M-86 environment. Although his 
discussion of PL/I-S6 user process development is more than 
adequate, enough changes have been made to warrant another 
di scuss i on . 

Procedures written in PL/I-86 become MCORTEX 
processes through execution of CREATE_PROC functions. 
MCORTEX processes, though written, compiled, ard linked as 
PL/I-86 procedures, are distinct processes. Each reauires 
the state of the processor to be prepared by the MCORTEX 
executive prior to every entry into the process. This is 
accomplished transparently when making MCORTEX function 
calls. User-defined or built-in PL/I-66 procedures in a 
MCORTEX process can be accessed from within the process 
normally, however, a MCORTEX process must be entered through 
a MCORTEX function call. 

KOFE is the name assigned to the kernel of MCORTEX 
and is written in PL/M-86, and it is necessary for calls to 
the supervisor to meet PL/M-86 parameter passing 
conventions. Rowe [Ref. 6] provided mechanisms to resolve 
differences between simple user calls and supervisor calls. 
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One such mechanism is the file GATEWAY. PLI, as referred to 
by Rowe, and now known as the SYSDFF.PLI (for System 
Definitions) file. This file must be included in all 
programs (using the PL/I %I NCLIJPF directive) making calls on 
MCORTEX functions. The change in filename was introduced 
as a result of this file's multifunction role. In addition 
to declaring the MCORTEX functions as ENTRY values with 
attribute lists, the file also contains the symbolic names 
of eventcounts, seauencers, and pointers for shared data 
structures. This adds a level of security not present in 
previous versions of MCORTEX. The misspelling of a symbolic 
name will be caught "by the compiler as the use of an 
undeclared variable. 

An example of the use of pointers to access a data 
structure in shared memory is provided by the NI3010 Device 
Driver and Packet Processor. This routine performs an UNSPEC 
function (described in [Ref. 17 p. 72]) call to absolutely 
locate the Ethernet Reauest Block structure so that it can 
consume Ethernet P.eauest Packets generated by KORE's 
SYSTEM^IO routine. The value appearing on the nghthand side 
of the UNSPFC assignment statement is a symbolic name 
defined in the SYSDEF.PLI file. Proper static management of 
shared memory, with symbolic assignments, assures the 
integrity of user data. 

Due to the limitation of pointer variables to 
sixteen bits in PL/I-P6, some method had to be devised to 
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allow user Drocesses to access shared memory outside the 
64E byte range), without resorting to assembly language code 
to effect data moves. The ABSOLUTE feature of LINK-86 [Ref. 
IS"! provides such an alternative. The DS register can be 
assigned a value (by using TATA [ABS[v]], where v 
represents the value) sufficiently high to allow an offset 
to be added to it at runtime, forming a physical add r° s s 
in the range 10000H - 1EFEFH 'first segment shared memory). 
This accomplishes the desired effect. It is precisely this 
technique that is used in the NI3O10 Driver. The Driver was 
linked with a value of. 0800H in the LINK option file, and 
when added to an offset of 8000H allowed access to a based 
array structure called FRF (Ethernet Reauest Block). Note 
that 0800:8C0 r/ is the same as 1000:0, but the first logical 
address permits local data to reside in local memory and 
shared data in the first segment. User processes can use 
this sane technique for interprocess communication. 

MCORTEX processes that are multiplex°d 
(multiprogrammed ) on or.e real processor must be linked into 
a single CMP module. Multiprogrammed processes may share 
common PL/I-86 runtime routines as well as CP/M-66 
utilities. However, this sharing of runtime routines ar.d 
utilities presents a problem. Careful examination of the 
machine code of the runtime procedures and utilities 
revealed the fact that they are not reentrant routines. 
Under normal circumstances , since processes only block 
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themselves at 'convenient' points ir. their execution (with 
the A a AIT primitive), this lack of reentrancy is not a 
problem. In previous versions of MCOKTEX , with the 
preemptive interrupt 4 to signify that a process has been 
readied by an offboard operation, the interrupt could easily 
"catch" two multiplexed processes using the same non^ 
reentrant runtime routine or utility. The change in 
scheduling philosophy, as discussed in the SOFTWARE SERVICES 
section of Chapter 3, reduces this "window of 
vulnerability." If a process is scheduled, via a PREEMPT 
operation (which still uses interrupt 4), behind a process 
that was blocked and using the same runtime routine or 
utility, the originally scheduled process's execution state 
could be catastrophically altered. This type of situation 
can be avoided through a careful distribution of user 
processes. That is, don't allow a process that may be 
readied via a PREEMPT operation to be multiplexed with a 
process that might possibly use the same utilities or PL/I 
runtime routines. If this cannot be avoided, the only 
remaining alternative is to write the snared code as 
reentrant procedures. It is anticipated that future Digital 
research, Inc. language compilers and CP/M-S6 operating 
system functions will address and resolve- this lack of 
reentrancy. For now, it remains a problem. 

MC0RT3X currently expects an initialization module 
to be located starting at 04390H . This module is the first 
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user process executed, and is used to create user processes 
only. ft system process written in PL/I-86 can use its 
intialization nodule to create eventcounts, seuuencers, as 
well as creating itself. After all initializations are 
performed, an AWA IT ( 'EE 'B4 , '0001 'B4 ) should be executed. 
This puts all initialization processes on a common reserved 
event count thread. An AEV ANCE ( 'FE 'B4 ) by any process will 
return all processors to CP/M-86 control (providing CP/M-86 
is resident locally). 

MCORTEX processes are written as pa rameterless 
PL/I-86 procedures. Execution cf CREATE_?ROC functions in 
the initialization module establishes a virtual processor 
for each process, and sets all process states to ready. The 
AWAIT call at the end of initializations forces a scheduling 
to take place. The highest priority virtual processor will 
be granted access to the real processor. Further scheduling 
is dynamically dependent on the use of MCORTEX synchronizing 
primitives by user processes. 

Parameters required by the Cl EATE_Pt.0C function 
include values unknown to the programmer until after all 
processes have been compiled and linked. This requires that 
dummy values be provided for the first compilation and 
linking. Links are performed with the MAP command option 
selected, since this provides information required to define 
user processes. A partial MAP print out for a demonstration 
process (full discussion in Appendix E) is shown in Table 2 . 
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TABLF 2 - MAP FILE 



Map for file: C2USEFS.CMD 

Serpents 



Length 


Start Stop 


Align 


Comb 


Marne 


Class 


272D 


'0000:3005-2731 ) 


BYTE 


PUB 


CODE 


CODE 


050F 


(0000:0100-060D 


WORD 


PU* 


DATA 


DATA 


0021 


( 0000 :060E-062E) 


WORD 


COM 


? CONS P 


DATA 


0013 


(0000 :0630-0642) 


WORD 


COM 


7FPBSTK 


DATA 


C02E 


(0202:0644-0671 ) 


WORD 


COM 


? FPB 


D A TA 


0002 


( 0000 :0672-0573) 


WORD 


COM 


7CNCCL 


DATA 


0009 


( 0000 : 0674-067C ) 


WORD 


COM 


7FILAT 


DATA 


0003 


( 0200 : 067E-0685 ) 


WORD 


COM 


?EMTS 


DATA 


00 IB 


( 3000 : 0686-06 A 0 ) 
(3000 :06A 2-06A 4 ) 


WORD 


COM 


? EBUFF 


DATA 


0003 


WORD 


COM 


VONCOD 


DATA 


0025 


(0000 :06A6-06CA ) 


WORD 


COM 


SYS IN 


DATA 


3028 


(0000 :05CC -06F3 ) 


' WORD 


COM 


SYSPRINT 


DATA 


Groups 


Segments 









CG ROUP 
DGROUP 


CODE 

DATA 


7C0MSP 


7FPESTK 


7 FPB 




7CNCOL 


7FILAT 


7FMTS 


7 EBUFF 




70NC0D 


SYS IN 


SYSPRINT 





nap for module: C2_USERS_INI T 

0024 (0000:000 5-0028) CODE 

0037 (0000:0100-0136) DATA 



map for module: MSLORDER 

O0Bb ( 0000:0029-00DD) CODF 
003B (0000:0138-0172) DATA 

map for nodule: TRKRPRT 

002B (0000 :00DE-0108) CODE 

0012 (0000:0174-0185) DATA 

map for module: GATEM/T 

0103 ( 0000 :0109-020B ) CODE 

0004 (0000 :0186-018Q) DATA 
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The CkEATE_PP.OC procedure has eight actual 
parameters. The first two are process identification and 
process priority. These are BIT(8) values assigned by the 
software developer, with due consideration given to the 
module's function. Four other oarameters , the CS, DS , SS, 
and ES register values can be determined by performing an 
executable load of the process CMD file under BDT86. Values 
displayed by DD786 include the CS, and DS register values. 
As mentioned earlier, it is required that the DS , SS , and ES 
register values be eaual for proper operation of some PL/I- 
86 runtime routines. Except under carefully considered 
circumstances, this should be the case. The remaining two 
parameters are pointer values obtainable from the link MAP 
file. 

The first section of the MAP file gives a summary 
of all code and data segments included in the associated CMD 
file. Several data segments are listed in order of their 
occurrence in memory, from lowest offset to highest offset. 
The range of the last entry gives the last address offset 
occupied by any data segment. Higher address offsets still 
within the memory space of this CMD file are assigned to 
stack and free space structures by PL/I-86, with the system 
stack preceding free space. The SP value required by the 
CREATE_PROC function can be obtained by adding the size of 
the stack required to the last offset occupied by data. If 
another MCOPTEX process stack is required, its SP can be 
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obtained by adding its size to the SP of the previous 
process. The system stack can be divided as necessary by 
continuing in this manner. The total number of bytes 
occupied by ^CORTEX process stacks should not exceed the 
number of bytes provided by PL/I-86 for the system stack. 

The MAP file also contains maps of the individual 
modules linked into the CMD file. These maps provide data 
about locations of code and data segments within the larger 
code and data segments summarized in the segments section. 
The beginning address of each module is given. This offset 
represents the IP value for that particular module. 

With all parameter values determined, the 
initialization process must be recompiled, and all processes 
relinked. The resulting CMD file can be executed in the 
MCORTEX environment. 

2. Gate Module 

GATEMOD . OBJ (or GATETRC.03J) must be linked with 
all user processes. It provides the object code necessary 
to convert user calls to the format expected by the 
supervisor, including addition of function codes, and 
padding of calls with extraneous parameters. GATEMOD uses 
no variable data segment of its own, and simply makes moves 
from user data areas to the user stack. This ensures that, 
so long as the user data areas involved are unshared, 
GATEMOD is reentrant. 
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GATEMOD and GATETRC both act as translators of user 



calls into formats reauired by the MCORTEX and MXTRACF 
supervisors respectively. The only difference in the two 
gate modules is the address of GATE$KEEPER in their 
associated KORFs. As assembly language routines called by 
PL/I-S6 MCORTEX processes, GATEMOI) or GATETRC use the 
established parameter passing conventions (PL/I-86 to ASM86) 
to build the stack structure expected by the supervisor 
module (PL/M-P6 format), supplying function codes and 
padding when reauired. A call is then made to GATE$KEEPFR. 
If the call is to READ or TICKET, space is reserved on the 
stack for the returned value. This value is popped into the 
BX register (PL/I-86 convention) before exiting to the 
calling process. 

KOPF. functions do not guarantee the integrity of 
the ES register. PL/I-86 in OPTIONS (MAIN) initializations, 
however, establishes the FS , SS, and PS registers to be of 
equal value, and some runtime routines expect this 
relationship to be maintained. Th° gate modules push the FS 
register onto the stack on entry, and pop it before return 
to the calling routine, thus preserving its precall value. 
Entirely transparent to user processes, the ES register 
value is preserved throughout MCORTEX calls. 
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E . MCORTEX LOAPFR 



1. The Loader 

Prior to Rowe's [Ref. 61 work the MCORTEX executive 
was assigned to the file KORE and was accessible only 
through utilities in the INTELLEC MSS system. This file 
contained all the multiprocessor operating system functions, 
the initial GLOBAL memory, the supervisor, the interrupt 
vector, and various low level functions not accessible to 
the user. To execute MCORTEX it was necessary to download 
KORE and user processes to the target system, disconnect the 
transfer cable, connect the target system terminals, and 
pass control to KORE on each processor. See 
[Ref. 5: Appendix A, B] for a complete description of the 
process . 

The KORE. OPS and KORF.TPC files, now loadable under 
CP/M-86 through the MCORTEX and MXTRACE loaders, are derived 
from KORE. KORF.OPS provides no system diagnostics, whereas 
KORE.TRC provides CRT output to indicate the entry into 
MCORTEX primitives. It is expected that during the software 
development chases, KORE.TRC will be used to facilitate 
debugging. In some c ircums tances this may not be feasible 
due to the reduced speed of execution as a result of the I/O 
overhead . 

Appendix A details the procedure used to produce 
KORE. OPS and KOPE.TRC from KORE. Further discussion will 
use the terms KORE and MCORTEX to mean either KORE. OPS or 
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KOPE.TRC and MCORTEX or M XT RACE respectively. 



When this 



generalization does not hold, the differences will be noted. 

2. Operation of the MCORTEX loader 

MCORTEX.CMD is an executable file under the CP/M-86 
operating system. Invoking MCORTEX without KORE.OPS on the 
default drive results in an error message and an abrupt 
return to CP/M-86. MXTRACE requires KORE.TRC. The loader 
announces that it is on line, and provides a prompt to query 
the interactive user whether or not GLOBAL memory should be 
loaded. Only the first processor activated should load 
GLOBAL memory. Subse-quent loads of GLOBAL memory will 
destroy data needed by executing processors. If no initial 
load of GLOBAL memory is made the results are undefined. 

KOBE is immediately loaded with or without GLOBAL 
memory as directed. The load is accomplished using CP/M-86 
functions, but does not use the CMC load utility. Instead, 
KOBE is read in and positioned block at a time as required. 
KORE load is followed by a request for a process file name. 
The loader expects one file name to be entered, and results 
are unpredictable if a "filename .filetype" does not precede 
a keyboard /RETURN). User processes are loaded using the 
CP/M-86 CMT load utility, and user processes must be CMP 
files. The entire file name must be entered including the 
three letter extension or filetype (.CMP). After loading 
the user file, the loader passes control to MCORTEX. 
MCORTEX initializations are performed within KORE, including 
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with 



creation of the IDLE and INIT processes (also ^ONITOF 
MXTRACF), and the user initialization process is 
entered. Operation after this point is determined by 
user processes. 



then 

the 
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VI. CONCLUSIONS 



The principal goals 0 f this thesis were achieved. The 
modifications to the previous version of MCORTEX, to allow 
the distribution of processes over a high speed intercluster 
bus, were developed and appropriately tested. Eventcount 
values are currently the only entities that are transferred 
in packet form over Ethernet. However, the framework to 
easily extend the dis tributi vi ty of other entities is 
es tabl i shed . 

From the viewpoint of user processes, access to 
Ethernet is gained in an entirely transparent manner. This 
access is truly asynchronous in the sense that a return to 
the requesting orocess occurs when an Ethernet Reauest 
Packet is written to shared memory, not when actual output 
of the information occurs. Provided the NI301C Driver and 
Packet Processor keeps up with the I/O rate, a bottleneck 
will not result. The dedication of the Driver to its own 
real processor assures this. 

The Driver software needed to distribute MCORTEX over 
Ethernet is device-dependent , however MCORTEX only 
interfaces with this routine through the convenient 
abstraction of an Fthernet Request Packet. Any changes in 
the Driver will not cause an undesirable ripple effect of 
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charges in the operating system cole. This integration of 
harware and software is easily modified and extensible. 

The creation of eventcounts and sequencers in the 
initialization module of a carefully tested system process 
provide a level of security not present before. This 
security is further enhanced by expanding the role of the 
SYSDEF.PLI file that is included in each MCORTEX process. By 
convention the user processes cannot alter the constant 
definitions present in SYSDEF. The user processes are not 
hostile anyway, but it will clearly not be to their 
advantage to alter this file. The assigning of pointers for 
shared structures further elevates the level of security. 

The N I 301 0 Device Driver and Packet Processor is a basic 
MCORTEX system process that is highly modular, virtually 
self-documenting, and extensible in nature. By modifying 
this code and the supporting code in MCORTEX, the 
distribution of other entities can be achieved. The 
distribution of sequencers is a nontrivial matter and 
careful consideration must be given to the speed at which a 
ticket value is returned to the requesting cluster. Ethernet 
packets will unavoidably be queued up in MI301P input 
buffers, and the speed in which they would be processed by 
the current Driver is fixed. A sequencer-type packet (not 
recognized by the current driver) would be processed 
immediately by the Driver, i.e., a value would be returned 
from the GLOBAL data of the cluster responsible for the 
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shared resource, and an Ethernet packet would he sent out 
immed ia tely . 

The distribution of user shared data could similarly he 
achieved, with the buffering of data in the shared memory of 
each cluster. The synchronization on successive interations 
of data would be realized in the same manner as previously 
discussed . 

The issue of packet security is a crucial one. The 
inherently reliable Ethernet is adeauate in most instances, 
but a one bit error in (10 ** 8) to (10 ** 11) bits could be 
catastrophic enough when it occurs, so that an 
'acknowledging Ethernet" may have to be developed. Enough 
adequate testing has not been conducted in the AEGIS 
Simulation Laboratory to draw any conclusions in this area. 

The lack of reentrancy in runtime code and CP/M-B6 
utilities is an issue that needs to be more actively 
addressed. A 'LARGE' PL/I-86 compiler is under development 
by Digital Research, Inc. that should resolve the reentrancy 
problem and the limited range (64K bytes) of pointer 
variables. This product should be available in January 1985. 
In addition to solving the a f orernen t i oned problems, the 
"LARGE" compiler will also sever the umbilical cord between 
the ISIS-II and CP/M-86 operating systems. MCOftTEX 
development can then continue in PL/I-86 instead of 
PL/M-86. MCORTEX will then evolve rapidly and consistently 
with increasingly more complex user processes. 
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APPENDIX A 



ISIS-I I TO CP/M-86 TRANSFER 
I. PRE-POW FR-ON CHECKS 

. SBC configured for CP/M-86 cold boot is in MULTIBUS 
odd slot and no other clock master SBC is installed. 

B. REMEX controller is in MULTIBUS, and properly 

connected to REMEX drive. 

C. If MICROPOLIS hard disk is to be used, ensure that 
it is connected to clocjc master SBC. 

D. Ensure 32K shared memory module is installed. 

E. Connect RS2.32 transfer cable between J2 on SBC, and 
2400 baud CRT port of the MDS system. If this cable has a 
'null modem' switch on it, set it to "null modem". This 
transposes wires 2 and 3. The switch may be marked 
"computer to computer" and "computer to terminal". 
Set to "computer to computer". 

F. Connect any CRT to the 9600 baud TTY port of the MDS 
system. Ensure CRT is set to 9600 baud. 

G. A CRT will be connected to the SBC after the loading 
is completed, and should have an RS232 cable hooked to the 
serial oort. The CRT connection should lead to a flat 25 
wire ribbon and J2 connector so it can eventually be hooked 
to the SBC's serial port. 
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II. POWER OM PROCEDURES 



A. Turn the power-on key to ON position at MULTIBUS 
f rame . 

B. Press RESFT near power-on key. 

C. If needed apply power to MICROPOLIS hard disk. 

D. Apply power to REHEX disk system. After system 
settles, put START/STOP switch in START position. Following 
a lengthy time-out period, the READY light on the front of 
the REHEX disk system will illuminate, and the system is 
ready. 

E. Insert the hoot disk into drive B. 

F. Apply power to the CRT. 

G. Power tic the HDS disk drive. 

H. Power up the MDS terminal. 

I. Turn power-on key to ON at HDS CPU. 

III. BOOT UP HDS 

A. Place diskette with executable modules and SPCS61 in 
drive 0 . 

B. Push upper part of boot switch in (It will remain in 
that position ) . 

C. Press reset switch and then release it. 

D. When the interrupt light #2 lights on the front 
panel, press space bar on the console device. 

F. Reset the boot switch by pushing the lower part of 
the switch. 
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F. ISIS -II will arn ounce itself and give the 
dtoti pt . 

IV. LOAD KOP* 

A. At MDS console, type 'SBC861<CR> ' . 

B. IF "’^CONTROL*” appears, SBC was not able to set its 
band rate. Press RFSET on MULTIBUS frame and try aga in. 

C. If 'Bad EMDS connection' appears, you will not oe 
able to continue. Check connectors. Make sure diskette is 
not write protected. Push RESET at frame. Try again. 

D. Sf>C861 will announce itself and prompt with ". . 

E. Type 'l KORE<cr>*. Wait for At this point the 

KORE module has been loaded into the SBC memory, and into 
the common memory board. 

V. SAVING K OAT TO CP/M-86 FILF 

A. Leaving the SBC861 process active on the MDS system, 
disconnect the PS232 J2 connector at the SBC, and connect 
the terminal Dreoared earlier. 

B. At the newly connected terminal type "5FFD4 : 4<c r>' . 
The CRT will not echo this entry. Respond to the cues that 
follow as required until CP/M-86 is up. 

C. Now ent^r DDT96. At this point KORE, CP/M-86, and 

DDT86 all are resident in the SBC memory and in the 32K 
shared memory board. 

D. Using DDT86 commands, reposition the parts of KORE 
required so that the code can be saved into one file. Data 
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necessary to determine the initial locations of the code is 



found in K0RF.MP2. The DDT96 instructions used for the 
current KORF. OPS and KORF.TRC files follows: 

*** KORF .OPS *** 

MB70 : 0 , 1000 . 480 : 0 Move, starting at address B?0:0, 

1000 bytes of code (main part of KORF) to new start address 
480 : 0 . 

M439 :0 ,80 , 5 Q 0 :0 *** Move, starting at address 439:2, 9^ 

bytes of code (initialization module) to new start address 
580:0 (following main part as moved above). 

MF530 :0 ,800 ,588:0 *** Move, starting at address F530:0, 

800 bytes of code (GLOBAL memory) to new start address 568:0 
'following initialization module). 

WKOBE.OPS ,480:0,1880 *** Write to the default disk a 

file called KORF. OPS starting at address 480:0 and 
containing 1880 bytes. 

*** KORF.TRC v '*» o* 

MAC0:0, 1000,480:0 *** Move, starting at address ACG:C, 

1 C 00 bytes of code (main part of KORF) to new starting 
address 480:0. 

M439 : 0 , 60 , 64.0 : 0 Move, starting at address 439:0, 90 

bytes of code (initialization module) to new starting 
address 640 :0 (following main part of KORF) . 

ME530 : 0 , 800 . 648 : 0 *** Move, starting at address E530:0, 

800 bytes of code (GLOBAL memory) to new starting address 
648:0 (following main KORE K ini t ial ia z t i on module). 
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WKORE.TRC ,480:0,2483 #*# Write to the default disk a 
file called KOKE.TRC starting at address 480:0 and 
containing 2480 bytes. 

^OTE: The main XC-RE module, the initialization module, 
and GLOBAL memory are located to separate parts of the SEC 
by the MCORTEX loader. The system used requires that these 
modules be saved into the file in 128 byte blocks. Further, 
any change in the number of 128 byte blocks occupied by each 
must be reflected in the MCORTEX loader code. 
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APPENDIX B 



DEPUGOINfl TECHNIQUES 

DDT86 [Ref. 13] is the primary debugging tool used in 
software product development in the AEGIS Simulation 
Laboratory. This debugger allows the user to test and debug 
programs interactively in a CP/M-86 environment. Far from 
being a high level debugging tool, DDT86 nevertheless 
provides the user with the ability to interactively enter 
assembly language statements, display the contents of 
memory, trace program execution, and utilize other commands 
to provide software development assistance. 

The use of DDT86 in the development of the NI3G10 Device 
Driver and Packet Processor was invaluable. Ethernet Reauest 
Packets could be interactively written to shared memory and 
the response of the Driver was easily monitored from the 
same terminal. Breakpoints car. be set in processes and the 
execution of a single board computer will continue until the 
breakpoint is reached. A process can block and when 
scheduled next, by a kernel of KCORTEX, the CPU will break 
at the setpoint. 

A particularly valuable feature, that unfortunately is 
unavailable in DDT86, is that of a vatchpoint. A vatchpoint 
is defined here as a location that a debugger would monitor 
and inform the user when an executing program has made an 
attempt to execute an instruction at that location. This 
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feature can be emulated under DDT86 by using tne "a” command 
(enter assembly language statements) to enter an INT 3 
(interrupt 3) command. What the user does not get, however, 
is a history of the instructions that got the CPU to this 



execution 


point. In a 


single 


step trace 


this 


is 


not a 


problem , 


but execution 


at near 


real-time 


is . 


In 


highly 



modular software, such as MCCRTEX, the single step trace 
through levels of procedure calls can be an extremely 
laborious taslr. 

In situations where the state of the CPU does not appear 
consistent with the executing software, and the reliability 
of the hardware is cues ti onabl e , there are few acceptable 
alternatives to using a digital logic analyzer. The 
Paratronics 332 is the logic analyzer used extensively in 
the AESIS Simulation Laboratory. 
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APPENDIX C 



MCORTEX LOADER 

This file is assembled using; the PASM86 assembler 
[Ref. 18]. After linking, when invoked as a transient 
command from the CCP level of CP/M-86, this file will 
interactively allow the loading of a Cmd file containing a 
MCORTEX process or multiplexed MCOPTEX processes. Only tnp 
first real processor entering the MCORTEX environment is to 
specify that GLOBAL data is to be loaded. Conditional 
assembly features pervade this code to allow either MCORTEX 
or MXTRACE (the diagnostic version) to be loaded. The 
conditional switch is called "MCORTEX", which is set eoual 
to one (or TRUE) when the MCORTEX version of the loader is 
to be assembled. The use of the MCORTEX or MXTRACE LINK86 
input option files (APPENDIX F) determine which transient 
command is generated. 
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MCORTEX / MXTRACE File TFX/TRC . AR6 Brewer 24 AUG 84 
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beginning 
assembly s 

# 5£ # SjS # # # 3£ # 3ji 



am loads the MCOPTEX operating system f 
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*/ 

-*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

-■V 

*/ 

*/ 

*/ 



TRACE-/ 

-/ 

*/ 

*/ 

- ^ 5^ -e V / 



DSEG 

ORG 0000 H 

;*** MCORTEX / MXTRACE "SELECTION #**#*##**##******fv**#v*#* / 



MCORTEX 



ECU 0 !*** SET TO ZERO FOR 
;*** MXTRACE 



;*** ADDRESS CONSTANTS 


n* * * * * # * # # * * # # # 


3ji3p#3{c 5j: ! 


FCB 


EOU 


005CR 


5*** FILE CONTROL 


FCB NAME 


EOU 


005DH 


;*** block 


FCB EXTENT 


EOU 


0068H 




FCB_CR 


EOU 


007CH 




INT ADD CS 


EOU 


001 1 H 


?*** INTERRUPT CODE 


INTRPT OFFSET 


EOU 


0033H 


I*** SEGMENT AND 


IF MCORTFX 








INTRPT CS 


EOU 


0C4BH 


;*** '/ECTOR 


ELSE 








INTRPT CS 


FOU 


0C4FH 


;###>? l #### < 



ENDIF 



?*** PUPE NUMBER CONSTANTS 


# # >;s aje a|c ?;c 5|t 3^ # a;c 3{c # 3£ a;« j;c y.t ^ 3 ;? 5 ;: a;t >;c 3 ^ 3 ^ aj; 3 ^ 3 ;: 3 ^ f 


EIGHTH K 


FOU 0080H 


IF MCORTEX 




NUM KORF, BLOCKS 


EOU 0020H 


ELSE 




NUM KORE BLOCKS 


EOU 0038H ;#### 2 #### < 


ENDIF 




NUM GLOBAL BLOCKS 


EOU 0010H 



ASCI I 0 EOU '0' 
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ASCII 9 


EOU 


' 0 ' 


ASCII A 


EOU 


'A' 


ASCII Z 


EOU 


'Z' 


SLASH 


EOU 


'/' 


COLON 


EOU 


/ ^ / 


SPACE 


EOU 


/ * 


PERIOD 


EOU 


r * 

• 


CR 


EOU 


000DH 


LF 


EOU 


000 AH 



;*** CONTFOL TRANSFER CONSTANTS ***** 



=** 



v nr 



'i' a' *r V V -v 'fi *»"• ^ 



IF MCORTEX 



KORE SP 


F,OU 


0075H 










KOPF SS V«L 


EOU 


0C55H 










KORE DS VAL 


EOU 


0C49H 










ELSE 














KORE SP 


EOU 


0075H 


; #### 


3 




/ 

\ - 


KORE SS VAL 


EOU 


0C 5BH 


; #### 


4 


#### 


/ 

\ 


KORE DS VAL 


EOU 


0C2CH 


;###* 


5 




< 



ENDIF 



;*** CP/M FUNCTION CONST & NTS 



5J: # # # 5r # # # ❖ # 3|c $ sj; # >Jc :J: ^ sjc # jJ: # 



/ 



CPM BDOS CALL 


EOU 


224 


SYSTEM RESET 


EOU 


0000H 


CONSOLE OUTPUT 


EOU 


0002H 


READ 


EOU 


000 AH 


PRINT STRING 


EOU 


0009H 


OPEN FILE 


EOU 


000FH 


READ SEQUENTIAL 


EOU 


0014H 


SET DMA OFFSET 


EOU 


001 AH 


SET DMA EASE 


EOU 


0033H 


ALLOC MEM ABS 


EOU 


0038H 


FREE ALL MEM 


FOU 


003AH 


PROGRAM LOAD 


EOU 


003BH 


NOT_FOUND 


EOU 


00FFH 


;*** MESSAGES ******** 


********* 


:***** 



/ 



I N_S TRI NG DR 15 

RB 16 

NO_FILE MSG DB 'KORE NOT ON DEFAULT DRIVES' 

NO_I N_F~I LE_MSG DB 'INPUT FILE NOT ON DESIGNATED DRIVE$' 
NO_MEMORY_MSG FB 'UNABLE TO ALLOCATE MEMORY SPACE FOR' 

DB ' MCORTEX $ ' 

FI LF_FORM_ERR_MSG DB 'INCORRECT FILE FORMAT - TRY A G A I N $ ' 
START MSG DB 'MCORTEX SYSTEM LOADER *** ON L I N E $ ' 
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P NAME MSG DB CR.LF.LF, 'EMTER PROCESSOR FILE N AME : ' , CR , LF 
PB '$' 

GLOBAL Q_MSG DB CR , LF, LF , 'LOAD GLOBAL MEMORY? CR , LF 
GM2_MSG DB ' ' X ' TO LOAD, <RETUPN> IF NOT ' , CR , LF , ' $ ' 

;*** mcortex ,j floc atiom variables *##***###*###****#*#***#/ 

;*** CAUTION *** CAUTION *** CAUTION *** CAUTION *********/ 
;*** ip^ e following five lines of code should not be ***/ 
;*** separated as this program assumes they will be ***/ 
]*** found in the order shown. The code is used for ***/ 
;*** memory allocation and as a pointer to KOFE. ***/ 

;*** CAUTION *#* CAUTION *** C«UTION *** CAUTION *********/ 



IN IT_OFFSET 
I N IT_B ASE 
IF MCORTEX 
I N IT_DS _SEG 
ELSE 

I NIT_DS_SEG 
ENDIF 

I N IT _DS _OFFSET 
I N IT IP OFFSET 



KORE START 
IF MCORTEX 


DW 


003PH 


;*#* CAUTION 


KORE1 BASE 
ELSE 


DW 


0B70H 


5*** CAUTION 


KORE1 BASE 
ENDIF 


DW 


0AC0H 


;#### 6 ###4 < 


KORE 

IF MCORTEX 


EQU DWORD PTR 


KOR E_START ; *** CAUTION 


KORE1 LENGTH 
ELSE 


DW 


0100H 


;*** CAUTION 


KORE1 LENGTH 
ENDIF 


DW 


01C0H 


;#### 7 #### < 


KORE1 _M_£XT 
IF MCORTEX 


DB 


0 


; CAUTION 


KORE NAME 
ELSE 


DB 


'KORE 


OPS' 


KORE NAME 
ENDIF 


DB 


'KORE 


TRC ' ;### 8 < — 


K0RF2_B ASF 


DW 


0E530H 


; *** GLOBAL MEMORY 


INTERRUPT VECTOR 


DW 


INTRPT 


OFFSET, INTRPT CS 


INT VECTOR ADD 


DW 


INT ADD CS 



DW 0000H ?*** INITIALIZATION 

DW 0439H »*** ROUTINE PARAMETERS 

DW 0C65H ?*** FOR DYNAMIC ASSIGNMENT 



DW 3C6BH 



,'#### 9 <■ 



DW 0068H ;*** WHEN USER INITIALIZATION 

DW 0074H ;*** IS INDICATED 



CONTROL TRANSFER VARIABLES #**#*****#*****::•***.' **#*#**/ 
KORE SS DW KOBE SS VAL 
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KORE_PS Dir.' KORE_DS_VAL 

s rT ’ ai: T CODE SEGMENT * ❖*###*# # * * # # * # * # # ^ * # * * # * ■? * * * # # # # / 
MCCRTEX LOADER CSEG 



CALL CLR_S CRFEN 
CALL MCORTEX LOAD 
CALL CLR_S CREEN 

CLD 

PUSH AX 



?*** SCREEN CONTROL & LOG ON 
?*** MESSAGES 



J *r *r 



i*** INITIALIZATION 



• ft 5^ ft 
f n r , 



?*** GET LOAD GLOBAL INDICATOR if*#*#*#***#*#*#*'-#**-#*#####/ 

CALL I N_GLOB® L !*** ASK IE GLOBAL TO BE LOADED 

MOV DX , OFES ET IN_STRING ; *** GET BUEFER LOCATION 
MOV CL, READ ?*** CP/M PARAMETER 

INT CPM_BDOS CALL ;*** GET I ND I CATER 

;*** GENERATE KORE FILE CONTROL BLOCK *#****#*************/ 



GEN 


KORE FCR: 






MOV" 


’BX,10 


; #** 


MOVE 11 CHARACTERS 


MOV 


S I , OFFSFT KORE NAME 


; 


POINT TO KORE N*MS 


MOV 


DI , FCB NAME 


; 


POINT TO FCB NAME 


MOV 


KORE: 






MOV" 


AL, [SI + BXl 


; 


GET CHARACTER 


MOV 


[DI+BX] , A L 


; 


STORE CHARACTER 


DEC 


BX 






JGE 


MOV KORF 







;*** OPFN KORE. OPS FILE ON DEFAULT DISK *************#***$/ 



OPEN _KCRE : 

MOV CL, OPEN FILE 
MOV DX,FCE 
INT CPM_BDOS CALL 
CMP AL , NOT_FOUND 
JNF PROCESS_KORE 
JMP NO_FILE 
PROCESS_KORE: 

MOV DI , 0 

MOV FCB_CR [DI] ,DI 



*** CP/M PARAMETER 
*** CP/M PARAMETER 
*** OPEN FILE 
*** *ILE FOUND? 

*** FILE FOUND! CONTINUE 
*** GO INDICATE ERROR 



?*** START WITH RSC ZERO 
j RESERVE MEMORY ^ ^ A v ^ ^ v v v v ^ v v •I* v v •>* v ^ v v v v *l* v v v v v j 



MOV CL, FREE ALL_MEM 
INT CPM_BDOS_C ALL 
MOV CL ,ALLOC_MEM ABS 
MOV DX, OFFSET KOREl_BASE 
INT CPM BDOS CALL 



?*** CP/M PARAMETER 
;*** FREE ALL MEMORY 
!*** CP/M PARAMETER 
?*** CP/M PARAMETER 
:*** ALLOCATE MEMORY 
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CMP AL, NOT p 0UND i 

JNE LOAD_MCORTEX ? 

JMP N0_ MEMORY A LLOC ; 

?*** LOAD MCORTFX CODE ****** 

LO AD_MCORTEX : 

MOV DI ,0 

MOV BP , NUM_KPRE_BLOCKS 
MO VE_KORE_LOOP : 

MOV DX.ECB 

MOV CL, READ SEQUENTIAL 
INT CPM BDOS CALL 
MOV ES ,KOREl_BASE 
MOV CX , EIGHTH_K 
MOV SI ,CX 
REP MOVSB 
DEC BP 

JNZ MOVE KORF LOOP 



*** MEMORY AVAILABLE? 

*** MEMORY AVAILABLE! CONTINUE 
*** GO INDICATE EERO? 



;*** SET DFST . OFFSET 
;*** SET BLOCK COUNTER 

J *** CP/M PARAMETER 
;*** CP/M PARAMETER 
;*** READ IN 128 EYTES 
? *** SET DESTINATION SEGMENT 
;*** SET BYTE COUNT 
;*** SET SOURCE OFFSET 
;*** MOVE 128 BYTES 
;*** DEC BLOCKS TO MOVE 
;*** IF NOT DONE, DO AGAIN 



;*** LOAD INITIALIZATION MODULE * * * * * ******** * * * * * * * * * * * / 



MOV DI , I NIT_CEFSFT 
MOV DX.FCB 

MOV CL .READ SEQUENTIAL 
INT CPM_BDOS_CALL 
MOV ES.INIT BASE 
MOV CX, EIGHTH K 
MOV SI.CX 
REP MOVSB 



W *r v 

jc« 



SET DEST. OFFSET 

CP/M PARAMETER 

CP/M PARAMETER 

READ IN 128 BYTFS 

SET DESTINATION SEGMENT 

SET BYTE COUNT 

SET SOURCE OFFSET 

MO VF 128 BYTES 



LOAD GLOBAL MEMORY ******************* 



❖ v v V *r 'i' V v *r "i' v J 



CMP IN STRING+l.OH 
JZ INSTALL _INTFRRUPT 
MOV D I , 0 

MOVE GLOBAL LOOP: 

MOV DX , FCB 

MOV CL, READ SEOUFNTIAL 
INT CPM_BDOS_ C ALL 
TFST AL , AL 

JNZ INSTALL_ INTERRUPT 
MOV ES , K0RF2_ BASF 
MOV CX , FIGHTH_K 
MOV SI,CX 
REP MOVSB 

JMP MOVE GLOBAL LOOP 



;*#* SHOULD GLOBAL BE LOADFD? 
;*** IF NOT, SKIP LOAD 
;*** SET DEST. OFFSET 

?*** C?/M PARAMETER 
; *** CP/M PARAMETER 
;*** READ 128 BYTIS 
;*** NO MORE DATA? 

;*** NO, SO GO ON 

;*** SET DEST. SEGMENT 

;*** SET BYTE COUNT 

;*** SET SRC. OFFSET 

?*** MOVE 128 BYTES 

;*** IF NOT DONF , DO AGAIN 



;*** INITIALIZE INTERRUPT VECTOR 



*** 3^!^ s): 






J# / 

'4' v n- 'i' V n » *,«. / 



INSTALL_INTERRUPT: 

MOV ES , I NT_VECTOR_ADD ;*** SET DESTINATION SEGMENT 
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MOV DI,0 :*** SFT DEST. OFFSET 

MOV SI, OFFSET I NTERRUPT_VFOTOR ; *** SRC. OFFSET 
MOV CX , 2 ;*** 2 WOPDS TO MOVE 

REP MOVS AX, AX I*** MOV TWO WORES 



HE A D I m A FILE NAME **** 

READ_A_NAME : 

CALL PROCESSOR NAME 
MOV DX, OFFSET IN STRING 
MOV CL, READ 
INT CPM_3D0S CALL 

;*** SET FCF DRIVE DESIGNATIO 



X* # ■)'{ 5jc jjs sj; # sjs # ?Jc 5*; ^ s|c 3|c sj: # sjs y 



;*** MSG TO INPUT A FILE NAME 
;*** DX < — BUFFER LOCATION 
I*** C PM PARAMETER 
;*** GET a file name 

5*e 3{: a[c # # sjc # sjc *,< s;c v # sjc V 4 : j;c ;’,c # 5 ;: # j;c >jc ;|c ;]< 



MOV DI , 0 :*** SET DESTINATION INDEX TO ZERO 



CMP IN_STRING+3,C0L0N ?*** IS DRIVE DESIGNATED? 

JE SET_DRI VE ;*** IF YES, PUT DRIVE IN *CB 

MOV FCB[DI],DI ;*** SET DEFAULT DRIVE 

MOV SI, 2 J*** 3RD POSIT IN_STRING, IS 1ST LETTER 

JMP FORM FCB 



SET DRIVE: 

MOV AL.IN STRING+2 


; ### 


AND AL.5FH 


; 


SUB AL.40H 


• ❖ * 


MOV FCB [DI] .AL 


; * 


AND AL , 0F0H 


; 


TEST AL , AL 

JNZ INPUT ERROR B 

MOV SI ,4 


; 



GET DRIVE LETTED 
CONVERT TO UPPER CASE 
CONVERT TO A BINARY NUMBER 
SET DP I VE 

LIMIT LINF DRIVE TO A ‘THROUGH 0 



5TH POSIT IN STRING IS 1ST LETTER 



; *** 



INITIALIZE FILE CONTROL BLOCK ********** 



*/ 



FORM 


FCB: 












MOV 


BX,0AH 


# O/ o# 

j V V 


FILL 


FCB 


NAME WITH SPACES 




MOV 


AL.SPACF 


J 'I* ; r 










FILL 


SPACES : 












MOV 


FCB NAKE[BX],AL ?*** 










DEC 


BX 


; 










JGE 


FILL_SPACES 


• 5*c ;‘i 

» ' 










MOV 


FCB CR [DI 1 , DI 


; *** 


NEW 


FILE 


CURRENT RECORD IS 


ZERO 


MOV 


FCB_EXTENT [DI] 


, DI ;*** 


NEW 


FILE 


CURRENT EXTENT IS 


Z ERO 


; 


INSTALL FILE 


CONTROL BLOCK 


NAME 


# * # * * * * £ # 5^ 5 ;: >',< * y ( ; 5jc 5 ^: # # 5,C jjc y' 



NAME_LOOP: 

MOV AL , I N_STR I N G f S 1 1 I*** GET A CHARACTER 

CMP »l, PERIOD ;*** START TYPE ? 

JNE FCB CONT 1 ;*** IF NO, CONTINUE 



9? 



MOV DI , 8 


; 


JMP FCB CONT 2 


; *** 


FCE CONT 1: 




CALL VALID INPUT 


;*** 


TEST AX, AX 


; 


JE INPUT FRROR E 


; 


MOV FCB NAME [Dll, AL 


a V- V- 

■ -I' «v 7l* 


MOV AX, SI 




CMP IN STRING+l.AL 




JB OPEN PROCESSOR 


; ❖ 


INC DI 


;*** 


FCB CONT 2: 




INC SI 


; # >;c sjs 


JMP NAME_LOOP 


; 


EXIT ROUTINE B: 




JMP EXIT ROUTINF 


; 


INPUT ERROR B: 




JMP INPUT ERROR 


; 



;*** OPEN THE PROCESSOR FI 



OPEN_PROCESSOR: 

MO V DX.FCP ;*** 
MOV CL, OPEN FILE ;*** 
INT CPM_BDOS_C ALL ?*** 
CMP AL, NOT_FOUND ;*** 
JNF LOA D_PROC ESSOR ;*** 
JMP NO_ I NPUT_FILE ?*** 
LOAD_PPOCFSSOR : 

MOV DX , FCE ;*** 
MOV CL, PROGRAM_LOAD ;*** 
INT CPM_3D0S_C ALL ?*** 



IF YES, DJUST DESTINATION 
ANT CONTINUE 

CH 7 CK FOR LETTER OR NUMEFR 



MOVE CHARACTER INTO FCB 
IS THIS LAST CHARACTER? 

IF YES, LOAD THE FILE 

IF NO, ADJUST FOR NEXT LETTER 

AND DO AGAIN 



BRIDGE TO EXIT ROUTINE 
BRIDGE TO INPUT ERROR 






CP/M PAPAMETER 

CP/M PAR AMETFR 

OPEN THE FILE 

WAS FILE ON DISK 

IF YES, GO LOAD THE FILE 

IF MO, SIGNAL ERROR 

CP/M PARAMETER 
CP/M PARAMETER 
LOAD THE FILE 
DATA SEGMENT IN AX 



;*** SET UP THF INITIALIZATION STACK ********************* / 



'l' 'I* 



CAUTION 
This cod 
CMD file 
second . 
cause no 
dependen 
module s 
values v 
location 
CAUTION 



*** CAUTION * 
e is highly d 
with CS head 
This is the 
di f f icul ty . 
t upon the lo 
tack and the 
ithin that st 
or organizat 
*** CAUTION * 



** CAUTION *** 
e pendent unon I 
pi* first and da 
normal situatio 
Also this code 
cation of the i 
location of the 
ack. Changes i 
ion should he r 
** CAUTION *** 



* 



CAUTION 
n du t of PL/I 
ta header 
n and should 
is highly 
nitializatic-n 
DS and IP 
n stack 
eflected here 



/ 

/ 

** / 

CAUTION *** **##*#/ 



**/ 
** / 
** / 
f 

■.c. »v / 
*$ / 



EXIT ROUTINE: 
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MO V ES , I N I T DS SEG 

MOV PX .initIds^oeeset 

MOV ES: [BX ] , AX 
MOV DX , 0 

MOV BX,INIT_IP OFFSET 
MOV ES : [BX] ,DX " 

MOV Cl , SET_PMA_BASE 
MOV DX , AX 
INT CPM_BDOS_C ALL 
MOV CL,SFT_DMA_OFES ir T 
MOV DX , EIGHTH_K 
INT CPM_BDOS C LL 



*** POINT TO I N IT STACK 
*** POINT TO DS ON STACK 
*** INSTALL NEW INIT DS 
*** SET NEW IP VALUE 
*** POINT TO IP ON STACK 
*** INSTALL NEW INIT IF 
*** CP/M PARAMETER 
*** SET BASE PAGE 
*#* SET DMA BASE 
*** CP/M PARAMETER 
*** GET OFFSET 
*** SET DMA OFFSET 



;*** TRANSFER CONTROL TO MCORTFX ************ 






/ 



MOV SP.KORE SP 
MOV BP.SP 
MOV SS , KORE_S S 
MOV AX , DS 
MOV ES , AX 
MOV DS , KORE_DS 
JMPF ES :KORE 



*** KCRE STACK POINTER 
*#* TORE STACK BASE 
*** KORE STACK SEGMENT 
*** GET DATA SEGMENT 
*** POINT ES TO DS 
*** KORE DATA SEGMENT 
*** JUMP TO MCORTEX 



?*** VALID CHARACTER FOR 



FILE 



name check 



J 



VALID INPUT: 






CMP 


AL, SLASH 






JE 


IS VALID 






CMP 


AL.ASCI I 


0 


• * aC^affc 


JB 


NOT VALID" 




J 


CMP 


AL, ASCII 


9 


; 


JBE 


IS VALID 




• ❖ 


AND 


AL ,5EH 




; 


CMP 


AL, ASCII 


A 




JB 


NOT VALID 




• £ # # 


CMP 


AL, ASCI I 


Z 




JEE 


IS VALID 




; *** 


NOT 


VALID: 






MOV 


AX , 0 




• >JC ;|C5j< 


IS 


VALID: 






RET 






J 



IS THE CHARACTER A NUMBER 

CONVERT CHARACTER TO UPPER CASE 
IS THE CHARACTER A LETTER 

INDICATE BAD CHARACTER 
CHARACTER OK 



; *** ABORT MESS AGES ************************************** ! 



NO_FILE: 

CALL CLR SCREEN 

MOV DX, OFFSET NO_FILE_MSG ;*** ?TR TO MSG 

JMP MSG OUTPUT ;*** PUT MSG 



NO_MEMOR Y_ALLOC : 

CALL CLR_S CREEN 

MOV DX, OFFSET NO MEMORY MSG ; *** PTR TO MSG 
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MSG OUTPUT: 

MOV CL, PRINT STRING 


; *** 


CP/M PARAMETER 


INT CPM BDOS CALL 


• # if 3 ;: 


SFND CHAP TO CONSOLE 


CALL CLR SCREEN 
MOV CL, SYSTEM RESET 


; 


CP/M PARAMETER 


MOV DL, 0 


• 3^ # if 


RELEASE MEMORY 


INT CPM BDOS CALL 


; 


EXIT TO CP/M 



; * ❖ * SC PEKN C GNTROL * * * # * ^ # * * * * ❖ * ******* # * # # # # * * * ^ * # # & * # j 



CLR 


SCREEN: 










MOV' 


CL, CONSOLE OUTPUT 


• 3jC#3£ 


ISSUE 


CARRIAGE 


RETURN 


MOV 


DL, CR 


; *** 








INT 


CPM BDOS CALL 


* *** 








MOV 


DI , OCH 


• 

f 


ISSUE 


12 LINE 


FEEDS 



LINE FEED: 



MOV DL , LF 

MOV CL , CONSOLE_OUTPUT 
INT CPM_BDOS_C ALL 
DEC DI 

JNE LINE_FEED 
RET 



;|c^s if. 
#3$C3}C 
if if if 
*** 



SEND MSG: 

MOV CL,PPINT_STRING 
INT CPM _BDOS_C ALL 
RET 



;*** CP/M PARAMETER 

;*** PRINT A STRING TO CONSOLE 



;*** NON 



ABORT MFSSAGFS 



if 3^ 3^ Sjt 3^ # 3|c # # ijj 3}* 3^ if if if ifi 3^’ if if if if # 5r ❖ # >r 5 1' ❖ 't< 



>:= # * 3|X / 
/ 



MCORTEX _LOAD : 

MOV DX, OFFSET START_MSG 

CALL SEND_MSG 

RET 



PROCESSOR NAME: 

MOV DX, OFFSET P_NAME_MSG 

CALL SEND_MSG 

RET 

I N_GLOB AL : 

MOV DX, OFFSET GLOB AL_0_MSG 

CALL SEND_MSG 

RET 

I NPUT_ERROR : 

CALL CLR_S CREEN 

MOV DX, OFFSET FI LF_FORM_ERR_MSG 
JMP EXIT FRR 



NO INPUT FILE: 



CALL CLR_SCREEN 

MOV DX, OFFSET MO_TM FILF MSG 

FX I T_ERR : 

CALL SFND MSG 
CALL CLR_S CR EEN 
JMP READ A NAME 



END 
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APPENDIX D 



GATE MODULE SOURCE CODE 

SYSDEE.PLI and GATEM/T.A86 files are contained in this 
appendix. PT./I-86 entry variables in 3YSDFF.PLI provide a 
"gateway" to the MCORTFX ^kernel) supervisor via GATEMOD or 
GATFTRC. Also contained in SYSDEF.PLI are constant (or 
symbolic) definitions that are used by the demoostra t i on 
processes contained in Appendix E . Note that system reserved 
constants, used by MCORTEX kernels and the NI3010 Driver and 
Packet Processor are also contained in this file. 

GATEM/T.A86 is assembled, and as a relocatable object 
file, is linked with MCORTFX processes to set up the PL/I-86 
to PL/M-86 oarameter passing interface. 

A conditional assembly switch "GATEMOD" allows for 
assembly of a GATEMOD or GATETRC version. 
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/ * $ --Is * if * if if if if J|s ?’,< if * if * if if * if if if if if * if s’,: :;t if if if if # # if * if s|< if * s;< # if # if )(: if if. if i<. if f 

/ifififififiiifififififififififififififififififitifififififififififififififififif.ififififififififififififififififif / 

/** S YSDEE FILE: SYSPEE.PLI David J. BREWER 1 SEP 84 **/ 

/#*=== = = = = === === = = = = = = = = == = = = = = = = == = = = = = = = = === = = - = = = T?z= = --*if / 

/ifif This section of code is e:iven as a PLI file to be **/ 
/#* %INCLUDE'd with MCOETEX user programs. ENTPY **/ 

/** declarations are made for all available MCORTEX **/ 

/** functions. **/ 

/ if ❖ if # * ❖ if if ❖ if # * if >f * if j|s * if if if if if if if if if if if if if if if if if * * if if ;;c if s|; if if if if if if if if if / 

DECLARE 

advance ENTRY (PIT (8) ) , 

/* advance / event_count_id ) */ 

await ENTPY (PIT (8), BIT (16)), 

/* await. (event_count_id , awai ted_value ) */ 

createevc ENTPY (PIT (8)), 

/* create_evc (event_count_id ) */ 

create_proc ENTRY (BIT (8), BIT (8), 

BIT (16), BIT (16), BIT (16>, 

BIT (16), BIT (16), BIT (16)), 

/if create_proc ( urocesso r_id , processor priority,*/ 
/* stack_Dointer_higbest , stack_seg, ip */ 

/* code_ seg, data_seg, extra_seg) */ 

create_seq ENTRY (BIT (8)), 

/* create_seq ( seq uence_id ) */ 

preempt ENTRY (BIT (8) ) , 

/* preempt ( processor_id ) */ 

read ENTRY (BIT (8)) RETURNS (BIT (16)), 

/* read (event_count_id ) */ 

/* RETURNS curren t_event _coun t */ 

ticket ENTRY (BIT (8)) RETURNS (BIT (16)), 

/* ticket ( sequence_id ) */ 

/* RETURNS unique_ti eke t_ value * / 

define_cluster ENTRY (hit (16)), 

/* def ine_clus ter ' 1 ocal_clu s ter_addres s ) */ 

distribut,ion_map ENTRY (bit (8), bit (8), bit (16)), 

/* distrihution_map (distribution_tyue, id, 

cluster_add r ) */ 
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add2bit,16 ENTRY( BI?( 16) ,RI7( 16) ) RETURNS f BIT ( 16) ) : 
/* add2bitl6 ( a_16bit_#, another 16bit #) */ 

/* RETURNS a_16bi t_# + ano ther_16bi t_# */ 



%reDlace 





EVC $ I D ' s 








(1) US FR 










TRACK IN 




by 


'01 


'b4 


TRACK OUT 




by 


'02 


'b4 


MISSILE ORDER 


IN 


by 


'03 


'b4 


MISSILE' ORDER 


OUT 


by 


'04 


'b4 



/* (2) SYSTEM 



ERB_REA D 
ERE' WRITE 



by 'f c 'b4 , 
by 'fd'b4, 



*/ 



/* 



*** SEQUENCER NAMES *** 



fl) USER 



*/ 



/* (2) SYSTEM */ 

EPB_ W ? ITE_REQUES T by 'ff'b4, 



/* 



*** SHARED VARIABLE POINTEFS *** 

(1) USER */ 



/* (2) SYSTEM */ 



bl ock_ptr_value 


by 


'8000 ' b4 


xpi t_ pt r_value 


by 


'8078 'b4 


rcv_rtr_ valoe 


by 


'8666 'b4 


END__RESERVE 


by 


'EEEF'b4 



# 3^ 3^ 3jC 3£ 3^ 3|t # # # # # 5|r 3^ Sfc # 3^ 3^ # # # 3jC jjc 3^ # 3j? # 3^ # # # 3 ^ # 3 ;: 3jS # 

* GATEMOD / GATETRC File GATEM/T . a86 



*V >'*' »•< V' v* *•' v# ■*' **• V' >•» *•< y«» *<. 

'i 5 d* *r 'rV -v ^ 'i* <i* -V -r t *1* Ar v v 

BREWER 1 SEP 84 <* 



/ 

/ 
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* — */ 

* This module is driven to the user in obj form to link */ 

* with his initial and process modules. Any changes to */ 

* user services available from the OS roust be reflected */ 
515 here. In this way the user need not be coneernei with */ 



* actual GATEKEEPER services codes. Two lines of code */ 

* are contained an conditional assembly statements and '•'/ 

* control the output to be GATEMOD or G C TETPC depending’ *•/ 

* on the value of GATEMOD at the code start. */ 



* * / 

* This module reconciles parameter passing anomalies */ 

* between MCORTEX ''written in PL/M) and user programs */ 

* (written in PL/I). */ 

* */ 



* All 

* OS . 

* 



calls are made to the GATEKEEPER in LEV 
The address of the GATEKEEPER must be , 



5L2 of the */ 
;iven below.*/ 
*/ 



* The ADD2BIT16 function does not make calls to MCORTEX 

* It's purpose is to allow the addition of two unsigned 

* 16 bit numbers from PL/I programs. 



sjt 3*s if age if if if jfc if :;c 3js s): # age sj: # if ^ age age age age # ag: # age age age # # age # age age age age age # age age age i 



C 



*/ 

*/ 
' / 



DS EG 



GATEMOD ECU 0 ? *** SET TO ZERO FOR GATETRC 
;*** SET TO ONE FOP. GATEMOD 

PUBLIC ADVANCE ?*** THESE DECLARATIONS MAKE THE 

PUBLIC AWAIT ;*** GATEKEEPER FUNCTIONS VISIBLE 

PUBLIC CPEATE_EVC ;*** TO EXTERNAL PROCESSES 
PUBLIC CREATE_PROC 
PUBLIC CPE ATF_SEO 
PUBLIC PREEMPT 
PUBLIC READ 
PUBLIC TICKET 
PUBLIC DEFI NF_CLUSTER 
PUBLIC DISTRIBUTION MAP 
PUBLIC ADD2BI "16 

AWA. IT_IND ECU 0 *** 

ADVA NCE_I ND ECU 1 ;*** 

CREATE_FVC_IND ECU 2 ?*** 

CREA TE_SEO IND EOU 3 5*** 

TICKET_IND EOU 4 
READ_I ND EOU 5 
CREATE_PROC_ I ND EOU 6 
PREEMPT_IMD EOU ? 

DEFI NE_CLU STEP _I ND EOU 8 
DISTRIBUTION MAP IND EOU 9 



THESE ARE THE IDENTIFICATION 
CODES RECOGNIZED BY THE 
GATEKEEPER IN LEVEL II OF 
MCOPTEX 



IF GATEMOD 

GATEKEEPEP IP DW 0036H 
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GATEKEEPER^ CS DW 0BADH 
ELSE 

GATEKEEPER_IP PW 0068H ;## ## 1 ##*# < 

GATEKF^PER_CS I’*' 0B4CH *.#*## 2 <-- 

ENBIE 

GATEKEFPER BQU DWORD PTR G A TEKREPER_ I P 
CSEG 

AWAIT *** AWAIT AWAIT AWAIT *** AWAIT ^ =5^ ^ sj= / 

AWAIT: 



PUSH ES 
MOV SI , 2 [BXl 
MOV PX, [BX] 

MOV AL.AWA IT_INr 
PUSH AX 
MOV AL, fBXl 
PUSH AX 
MOV AX, [SIl 
PUSH AX 
PUSH AX 
PUSH AX 

CALLF GATEKFEPEh 
POP ES 



; S I < — PNT TO COUNT AWAITED 
;RX 2 — PNT TO NAME OF EVENT 

;N <— AWAIT INDICATOR 

JBYT < — NAME OF EVENT 
LAX <-- COUNT AWAITED 
JWOPDS <— COUNT AW«ITF,D 
; PTR _S EG <-- UNUSED WORD 
5PTR OFFSET <— UNUSED WORD 



RET 



;*** ADVANCE *** ADVANCE *#* 



ADVANCE 



* 






ADVANCE ####****##/ 



ADVANCE: 



PUSH ES 
MOV BX, f BX] 

MOV AL, ADVANCE IND 

PUSH AX 

MOV AL,[BXl 

PUSH AX 

PUSH AX 

PUSH AX 



JBX <-- PTR TO NAME OF EVENT 

IN <— ADVANCE I NDI CATER 

JBYT < — NAME OF EVENT 
J WORDS < — UNUSED WORD 
JPTR SEG <— UNUSED WORD 



PUSH AX ;PTR_OFFSFT <— UNUSED WORD 

CALLF GATEKEEPER 
POP ES 



RET 



»*** CREATEEVC *** CREATE_EV C *** CREATE_EVC 
CREATE_EVC : 

PUSH ES 
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mov bx.Tbx! ;bx <— pt p to name of event 

MOV AL, CR' p ATF_FVr_IND 

PUSH AX ;n <— CREATE_EVC INTI CATCH 

MOV AL, [BX] 

PUSH AX JBYT <— NAME OF EVENT 



PUSH AX 
PUSH AX 
PUSH AX 

CALLF GATEKEEPER 
POP ES 



5 WORDS < — UNUSED WORD 
;PTR_SEG <-- UNUSED WORD 
JPTR OFFSET <— UNUSED WORD 



RET 



; *** 



CREATF SEO *** CREATE SEO *** CREATE S EQ 



5jC ^ 



CREATF_SEQ : 



PUSH ES 
MOV BX , [BX] 

MOV AL , CRF ATE_SEO_I ND 
PUSH AX 
MOV AL, [BX] 

PUSH AX 
PUSH AX 
PUSH A.X 
PUSH AX 

CALLF G ATFKFEPFR 
POP FS 



JBX <— PTR TO NAME OF SEO 

;.N <— CREAT E_SEO INDICATER 

JBYT <-- NAME OF SEO 
JWORDS <— UNUSED WORD 
JPTR_SEG <-- UNUSED WORD 
;PTR OFFSET < — UNUSED WORD 



RET 



?*** TICKET *** TICKET *#* 



TICKFT *** TICKET *** TICKET 



^ ^ f 



TICKET: 



PUSH ES 
P USH ES 
MOV CX.SP 
MOV BX , [BX] 

MOV AL, TICKET IND 
PUSH AX 
MOV AL, [BX] 

PUSH AX 
PUSH AX 
PUSH SS 
PUSH CX 

CALLF GATEK FFPFR 
POP BX 
POP ES 



JTICKET NUMBER DUMMY STORAGE 
JPOINTER TO TICKET NUMEER 
JBX < — PTR TO TICKET NAME 

;N <-- TICKET INDICATER 

JBYT <— TICKET NAME 
JWORDS < — UNUSED WORD 
; PTR_SEG <— TICKET NUMBER SEG 
JPTR_OFFSET < — TICKET NUMBER POINTER 

» RETRIEVE TICKET NUMBER 



RET 
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;*** READ *** READ 

READ : 

PUSH ES 

PUSH ES 

MOV CX,SP 

MOV BX , [BXl 

MOV AL.PEAD IMP 

PUSH AX 

MOV AL, [BX] 

PUSH AX 
PUSH AX 
PUSH SS 
PUSH CX 

CALLE GATEKEEPER 
POP BX 
POP ES 

RET 

;*** CREATE, PROC ** 

CREATE_PFOC : 

PUSH ES 
MOV S I , 14 [BXl 
PUSH WORD FTP [SH 
MOV SI , 12[BX] 

push word ptp rsn 

MOV SI , 10 [FX] 

PUSH WORD PTR [SI] 
MOV SI , 8 [BX] 

PUSH WORD PTR [SI] 
MOV SI, 6 [BX] 

PUSH WORD PTP rs II 
MOV SI, 4 [BX] 

PUSH WORD PT P [SI] 
MOV SI ,2f PXl 
MOV AH, [SI] 

MOV SI, [BXl 
MOV AL, [SI] 

PUSH AX 
MOV CX,SP 

MOV AL , CRE A TE_PPOC_ 

PUSH AX 

PUSH AX 

PUSH AX 

PUSH SS 

PUSH CX 

CALLF GATEKEEPER 
®DD SP, 14 



*** READ *** READ *** 



READ *** RE S D 



**** / 



JEVENT COUNT DUMMY STORAGE 
; POI NTER TO EVENT COUNT 
;BX <— PTR TO EVENT NAME 

;N <-- READ INDICATOR 

JBYT <— EVANT NAME 

?BYT <— UNUSED WORD 

?PTR SEG <— EVENT COUNT SEGMENT 

» PT P " OFFS ET < — EVENT COUNT POINTER 

? RETRIEVE EVENT COUNT 



* CREATE PROC *** CREATE PROC 






V ^ 



/ 



;si <— PTR TO PROCESS 

;ST?CK PROCESS ES 

;si <— P TR TO PROCESS 

;STACK PROCESS DS 

; S I <-- PTR TO PROCESS 

5STACK PROCESS CS 

; S I PTP TO PROCESS 

?STACK PROCESS IP 

? S I <— PTR TO PROCESS 

; STACK PROCESS SS 

;si < — PTR TO PROCESS 

5STACK PROCESS SP 

; S I <— PTR TO PROCESS 

;GET PROCESS PRIORITY 

;si P T R TO PROCESS 



ES 

DS 

CS 

IP 

SS 

SP 

PRIORITY 



ID 



;gft process id 

;stack process priority and id 

IPOINTEP TO DATA 

IND 

IN <-- CREATE PROCESS IND 
I BYT <-- UNUSED WORD 
; WORDS — UNUSED WORD 
;PROC_PTP SEGMENT <-- STACK SEG 
. I PROC PTR OFFSET <— DATA POINTER 



I REMOVE STACKED DATA 
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POP ES 



RET 



;*** PREEMPT 



PREEMPT *** PREEMPT 



PREEMPT * 



'**/ 



PREEMPT: 



PUSH ES 
MOV BX, [BX] 

MOV AL, PREEMPT I MB 

PUSH AX 

MOV AL, [BXl 

PUSH AX 

PUSH AX 

PUSH AX 

PUSH AX 

CALLF GATEKEEPER 
POP ES 



JBX <— PTR TO NAME OF PROCESS 

?N <— PREEMPT INDICATER 

5BYTE <-- PREEMPT PROCESS NAME 
JWORDS <-- UNUSED WORD 
;PTR SEC UNUSED WORD 

I PT p ” OFFSET < — UNUSED WORD 



RET 

;#** DFEI NF_CLUSTER *** 

DEFINE CLUSTER: 



DFEI NE CLUSTER *** 



= # / 



PUSH ES 

MOV BX, TBXl ;BX <-- PT^ TO LOC A L$ CLUS TER$ ADDR 

MOV AL, DEFINE CLUSTER_I ND 



PUSH AX 
t>USH AX 

PUSH WORD PTR fBX] 
PUSH AX 
PUSH AX 

CALLF GATEKEEPER 

POP ES 

PET 



J N <— DEvtme_CLUSTER_IND 
;BYT < — UNUSED WORD 
;WORDS <“ LOC AL$CI,USTER $AODR 
JPTP SEC <— UNUSED WORD 
;PTP OFFSET <T — UNUSED WORD 



• 



DISTRIBUTION MAP 






DISTRIBUTON MAP 



* 



3jC# / 



DISTRIBUTION_MAP: 
PUSH ES 

MOV SI, 4 [BXl 
PUSH WORD PTR TSI] 
MOV SI, 2 TBX] 

MOV AH, [Sll 
MOV SI, r B X D 
MOV AL, fSl] 

PUSH AX 
MOV CX, SP 



; S I <-- PTR TO GROUP ADDRESS 
;STACK THF GROUP ADDRESS 
ISI <-- PTR TO ID OF MAP_TYP E 

?ST <— PTR TO MAPjTYPE 
JAL <— MAP_TYPE 
JSTACK ID AND MAP_TYPE 
? POINTER TO DATA 
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MOV PI. , DISTRIBUTION MP P TND 



PUSH AX 
PUSH PX 
PUSH AX 
PUSH SS 
PUSH CX 

CALLF GATRKFFPRR 
ADD SP, 4 
POP ES 
RET 



JN <— DISTRIB_MAP_IND 
;3YT <— UNUSED WORD 
; WORD <-- UNUSED WORD 

;map_ptr_seg < — ss 

; M * P D TP OFFSET < — D4?a 



PTP 



?*** ADD2BIT16 *** ADD2BIT16 *** ADD2BIT16 #** 



PDD2BIT16 **/ 



PDD2BIT16: 



MOV SI , [EX] 
MOV BX,2[PXl 
MOV PX, fBX] 

add bx , rsn 



; S I <-- PTR TO BIT ( 16)#1 
;BX <— PTR TO BIT(16)*2 
JBX <-- BI T ( 16 ) #2 
5BX <-- BIT ( 16 )#1 + BIT ( 16 ) #2 



RET 



END 
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APPENDIX E 



DEMONSTRATION PROGRAM SOURCE CODE 
The model of processes that demonstrates the 

distributivity of MCORTFX over Ethernet is illustrated in 
Figure 11. The interactions that are occurring at each 
cluster are as follows. 

Cluster 1 - The MSLRFACT (missile launcher reaction) 

process and TRACKER (target tracking) process get a ticket 
through the kernel (SYSTEM$IO) to write to the Ethernet 
Request Block. This corresponds to user transparent 

simultaneous reauests for Ethernet access. The NI3010 Driver 
and Packet Processor is Drocessing Ethernet Reauest Packets 
and Ethernet packets. All processes are competing for access 
to GLOEAL data via the kernel. 

Cluster 2 - the MSLOFDEF (generates missile orders) ard 
TRKRPRT (track reporting) processes are multiplexed on one 
real processor and are scheduled and blocked based on the 
interaction with the Cluster 1 processes. The \II3010 Driver 
and Packet Processor performs the same function as that in 
Cluster 1. The code is identical with the exception of the 
initialization module. Recall that this module in each 
cluster is responsible for the creation of evertcour.ts and 
seouencers, as well as calls to PEFINE$CLUSTER and 
DISTEIBUTION$N'Ap t which are cluster and even tcour. t-depe nd e n t 
(distribution of) orocedurps. 



Ill 



Ethernet 




SBC I SBC 2 SBC 3 SBC 4 

CLUSTER 1 



FIGURE 11 - Demonstration Model 
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Both Clusters - there is no actual computations beir.g 
done by ary M COFTEX process, so Ethernet Request Packets ard 
Ethernet Packets are being generated at the fastest possible 
rate. Any possible timing problems would be exposed by this 
demonstration process. None were noted, and tne processes 
performed as expected. 

The system console shown in ^i^ure 11 is used to monitor 
using DPT 96 ) changes in GLOBAL data and shared memory 
structures. A process that automat ically provides diagnostic 
and display supoort is under develoDnent for RTC STAR. This 
process will execute under CP/M-P6 on single board computer 
1 in each cluster. Source code for the demonstration model, 
except fon Tink96 input option files and the NI3013 Driver, 
follows. The input option files and NI3010 Driver are 
contained in Appendices E and Y respectively. 
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%, C 



%•<» V* %t* %•/ J# *•# V* s 9 * J# V* ^V<> « 

<Y* *4* ^j* ^|% ^ /p #|> <*,- ^p* ")' ^ *4^ **|* *f* * 



. * r -y* -'!'* -V 



►*/ J/ O/ Of «U %V Of Of Os ^V % / O* O* %’/ %’/ %V V^ %■* O* 4f %>/ o* 

*4^ »|% tf|% ^|% #|S ^|* ^Si ^|H >|% Y Y ^|' <*|* *|* ^|« *|% ^|\ Y 



MSLTINIT is the initialization module for the process * 
that simulates the training of a missile launcher as * 
a result of orders received from the MSL0“DFF process * 
of Cluster 2. This module is linked as shova m * 
MS LR FACT . I NP or LAUNCH 7 T . I NP in Appendix F. * 



* PL/I-86 Source File Name : MSLTINIT. PLI 

* 



O* O* V# %Xf J# Of J/ O* J> o+ o+ % V 

*r v 'i ' t v v V v v ^r *§• *r 'i' -T' 



O* V # *»># ' 

•v r r ¥ ' 



msltinit: procedure options (main); 

%include 'sysdef . pi i ' ; 



/* begin */ 

call create_proc ('A2'b4, 'fc'b4, 

'0600 'b4, '04d8't4, '0023 'b4, 

'0439'b4, '?4d8'b4, '04dd'b4); 

call await ('fe'b4, '0l'b4); 



end msltinit; 



%•/ o+ \i# o+ O* Of %•/ ^ %•# V/ V* Vp V* *J/ vl* o* «kt> J/ V* «*** ♦V >v V# *»•/ o+ o? o+ 

^ n' ^t** ^r* y "A *p* ^ »p ^ /p ^p *|» /p #p ^p ^|> / t % >p «p ^|- >p 



* MSLTRAIN is the main module of a process that "responds”* 

* to commands issupd by MSL0RD v R. It is a consumer of * 

* missile orders. It signals its use of a command by * 

* advancing distributed eventcount MISSILE_0RDER_0UT . * 

* It is linked as shown in MSLREACT. INP or LAUNCH/T.INP * 

* of Appendix F. * 



PI/I -86 Source File Name : MS LTRA I M . PLI 
MCORTEX Command Module Name : MSLREACT.CMD 
MXTPACF, Command Module Name : LAUNCF/T.CMD 



: 5 (; * # s;: 5;: * # # :;c s;c # j;: j;c # # sp sj. ^\c # 









o+ '*C 



msltrain: procedure ; 

Preplan* 3 



infinity by 3276V, 

one by '0001 ' b4; 

%include 'sysdef .pli ' ; 
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D^CL&PE 



i fix°d bin ( 15) , 

k bit >'16) static ir.it ( '01$ SIP 'b4 ) ; 
/* end DECLARATIONS */ 



/* main */ 

do i = 0 to infinity? 

k = add2fcitl6(k, one); 

call await ( MISS ILE_ORDEE_IN , k ) ; 



/* consume() */ 

call advance (NISSILE OPDEF. OUT); 



end; /* do i */ 
end msltrain; 



V* *'* si' »•» %•/ V' s>' »•< %V V" s 1 ' V' «,•* s'* <V *•' »•» s 1 ' sV s*' ••I* V' ¥* ^ ft s'* •I' ■*** s!# sV ^ *> F ' s** 'V *v »•' >'» V* »•' s*f •>*'■ 

v ¥ t r n* v t t t n* n* t ¥ t r n* 'c t t ¥ V Jp t ¥ t J i» t ¥ 'r t v ¥ n' v v n' 'o nr ¥ 'i* ¥ ¥ *•» v *r nr ¥ ¥ ¥ n' ¥ v n' n v 



* TRKDINIT is the initialization nodule for the process 

* TFACKEF ( CMD filename). It is linked as shown in * 

* TRACKER. INP or TRKFR/T.INP of Appendix F. * 

* * 



* PL/I -86 Source File Name ; TRKDINIT. PLI * 

^ Vf v# %•# v* ^ y# o# y# y# ou y# * ** y# *** %v y<» 

*1* ^ #|> /|S «rp *V ^1' ^|** rp <»p #1 « #|% /p /j% #y* *p »p *y* *p /p 



trkdinit: Drocedure options (main); 

%include 'sysdef . pi i ' ; 



/* be^in */ 

call ci'eate^proc ('Pl'b4 t 'fc'b4, 

'O900'b4, '06ff'b4, '0023 '04, 

'0439'b4, '06ff'b4, 'P6ff'b4)J 
call await ('fe'b4, '01 'M); 



end trkdinit? 



% T # y* v* »•/ v# %•# %>/ *’/ v# %*# «*/ «> y- v # <k f # %** «j^ %•# y< v< %*# ^o «w %u %v *>^ y* »i# «(# 

«>|S #|« #,% ^p «y* / »' *r ^ v ^i' ^r or <v v o % ^r *p v y i^ o % o' v *p o s *i* v o' ^i' *» % *p *p ^i' •** /,% o’ v y # r *p o' o' o % -p # p 

* TRKDETECT is the main module of a producing process * 

* that simulates the detection of tracks (air contacts) * 

* and advances eventcount TRACK_IN to signal that the * 

* next iteration of track data is available. The consumer * 

* process is TRKRPRT, located at Cluster 2. This module * 

* is linked as shown in TRACKF R .INP or TRKIR/T . I UP of * 

* Appendix R. * 



MCORTFX Command Module Name 
MXTRACE Command Module Name 



TRACKER .CMP 
TRKER/T .CMD 



■? 

* 



# # ?;*. # # 3^ # # # # -I' Jjs X # # # # # # 3|c # # y,C f t i 3^ # # aftc # # 3jt 5jc # # 3{C # y,C # SjC # ?£ j|C 3,*t # SjS ?I« # SjS # 5£ S|C ?I? # # 3jc # 3^ 

trkdetect: procedure ; 

^replace 



FOREVE? 


by 


'l'b, 


one 


by 


'0001 'b4 


buf f er_length 


by 


5c; 



^include 'sysdef . pli ' ; 

DECLARE 

i fixed bin ( 15 ) , 

( k , buff er_ub , buff er_l b ) bit (15); 

/* end DECLARATIONS */ 

/* main */ 

do i = O to 32000; 

/* simulation of track input data*/ 

/* Input from real-time sensor here */ 

call advance (TRACK_IN)* 

buffer_ub = read ( TPACK_IN ) ; 

put skip^2) edit ('Eventcount value = ', 

buffer_ub)^a,b4(5))t 
buf fer_l b = read ( TR A CK_OUT ) ; 
put skip(2) edit ('Eventcount value = ', 

buffer 1 b ) ( a , b4 ( 5 ) ) ? 



lie 



if ((binarv(buffer__ub)- 

binary ( bn f fer_l b ) )>=buffer_length) then 

do; 

k = add2bi tl6( buff er_lb . one) ; 
rail await ( TR ACK_0UT , k): 

end * 

end; /* do FORFVFR */ 
end trkdetert; 



a;: a£ 5;: ajs 5|t if if aj< a£ if 5;; s{s a|s 5 ;? a£ # a£ a|c a{c afs a;c ?,s afc a): a£ # afc # a£ # # if a(: # a): # a|i # a;: ajc a^ a* a*,c a£ a|: a;s a;c a;? a;c a;c if if if a 



* C2UINIT is the initialization module for the Cluster 2 

* processes that are multiplexed or SBC 2. This module is 

* linked as shown in C2USERS . I NP or C2USER/T.INP in 
~ .Appendix F. 

* 



* PL/I-86 Source File Name : C2U I N IT . PLI 



V* V' »>« V- «>/ »'< *0 V* »■« »v *•< «IU »•< V* V* »'» V* *'* *V >*<• »■* %'» *'* V* •<< *'» %'» >*» »V <■< »'» < • «A» y » »'* * * «v 

n' v v *v o' n' v o' 'i ' t v o' «o' nr* *r *>» v o' •%+ o'v J ro'¥ o' o' o* o' O' or o< v o' v o' O' O' O* ¥ o' *r O' O' o' O' t o' -r 0 1 o' o' o' to-¥ o' o- o' *»• 



c2_users_init : procedure options (main); 

%include 'sysde'f . pli ' ; 



/* begin */ 



/* missile order */ 
call create_proc ('03'b4, 'fc'b4, 

'0820'b4, '06ff'b4, "C029 'b4 , 
"0439 "b4 , '06ff'b4, '06ff'b4); 



call create_proc ('04'b4, 'fc'b4, 

'0940 'b4, '06ff'b4, '00de'b4, 
'0439'b4, '0fiff'b4, '06ff'b4); 
call await ('fe'b4, '01'b4); 



end c2_users_ ini t ; 



117 



O* ^ %•* O# %'/ v* +>* %•* V# <»v ^v sV *** y* ^ %*^ *v v^ v* 

^J* #1^ #,» '| * *|* #1% *1^ #|* ^1* #,* #)% ^ *,* #|^ <*p "I 1 * *|^ -V» #|% #|H /,» Op* #p #|% «i|% f>,* #p 0|* 



V V*# 



* %'/ O/ J/ •*# ^ ^ «0* ^ 

,* 'I* r l' *1* *1* »l % »p V ^l % *1 



* MSLORDER is the main module of a producing process at 

* Cluster 2 that simulates issuing missile orders. It 

* signals the next iteration of missile orders by 

* advancing eventcount M I SSI LE_0RDTR _I N . The consumer is 

* MSLREACT at cluster 1. This module is linked as shown 

* in C2US*’RS.INP or CPUS ER/T . IMP in Appendix F. 

Of 

* PL/I-B6 Source File Name : MSLORDER. PLI 

* Contained in : 



* 

❖ 



* 



MCORTEX Command Module Name 
MXTRACF Command Module Name 



C 2 USERS .CMD 
C2USER/T.CMD 



* 

❖ 



* %U Of V/ %'f Of Oif *•/ %•/ %'«r %V Of / Of ^if J/ Of •* V %V Of Of Of \>f Of %V %V O^ Of Of Of Of O' O' Of «if Of «if «Vf »* f %lf Of O' % ( f % 

% f|-* f,^ #,* f*p op # i^ «%• y r A* *i 'p +\*> +%+ 'p /p **|S f| fp fp 'p fp fp fp fp #p fp fp ?p fp #p fp o, /p #p #p #p /p fp * * »p #p o,*. # 



: ♦rn % n* n' # 



mslorder: procedure ; 

%replace 



.infinity by 32767, 

one by '00Ol'b4, 

buf f er_ler gth by 50; 

^include 'sysdef . pli ' I 

DECLARE 



i fixed bin (15 ) , 

( k , buf f er_ub , buf f er_lb ) bit (16); 
/* end DECLARATIONS */ 

/* main */ 

do i = 0 to infinity; 

/* simulation of missile order */ 



call advance (MI SS I LF_ORDER_I N ) ; 

buf f er_u b = read 'MISS ILE_ORDER_IN ) ; 

put skip(2) edit ('Eventcount value = ', 

buffer_ub) ( a , b4 ( 5 ) ) ; 
bu f f er_l b = read ( MI SS ILE_ORDER_OUT ) ; 
put skipf2) edit ('Eventcount value = ', 

buffer lb ) ( a . b4 ( 5 ) ) ; 
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if ((binary(buffer_ub)- 

bi na r.y ( bvf fpr_lb ) ) >=buff er_ length ) then 
do ; 

k = add2bi tl 6 ( bu f f er lb, one); 
call await (MISSILE J)*RDER_0UT , k)5 

end ; 

end; /* do i */ 



end mslorderi 



%>+ ^ ^ 
*r — - 



si*#*## #####£####*#*#*##*## ####*#***#*** s;*####***? 



* TRKRPRT is the main module of a process at Cluster 2 * 

* that simulates the consumption of track detection data. * 

* It signals its consumDtion ty advancing eventcount * 

~ TRACK OUT. This module is linked as shown in * 

* C2USFRS.INP or C2USFR/T . I NP of Appendix F. * 

* PL/I -86 Source Pile Name ; TRKRPRT . PLI * 



O* %*# V> O# %* • v** %V O# v*f O/ J# O# Jy J/ O# «JU Of %V Of Of Jf O" Of* Of %*f s*f %*f Of %W» ^ O- %’# ■> *# •»*# V* O/ *V Of Of 

fp fj' 0 4 -% f,* * 4 « f|^ f t % /,> #|% f|« fo v # r 'i' v *»** *T* *V* V *•' V 'i" *i % 'i « 



trkrprt; procedure ; 

%repla ce 



infinity by 32767, 

one by '0001'b4; 

^include 'sysdef .pli ' ; 

D ATI, APE 

i fixed bin (15) , 

k bit (16) static init ('00P0'b4); 

/* end DECLARATIONS */ 

/* main */ 

do i = 0 to infinity; 

k = add?bitl6(k, one)* 
call await (TRACK_IN, k)i 

/* consume') */ 

call advance (TP. ACK_0UT) ; 
end; /* do i */ 
end trkrprt? 
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APPENDIX F 



Input Option Files 

The INPUT option directs LINKP6 to obtain further command 
line input from an indicated file. This reduces the amount 
of interactive typing needed to link various modules 
together. In essence, the input file is a batch file 
scanned by LINK86. For example, the modules shown in 
C1PR0C.INP are linked with the command : LINK86 C1PR0C[I], 

where I denotes that C1PR0C.INP contain the actual files to 
be linked. The name appearing on the lefthand side of the 
equal sign in the LINKS 6 option files is the name assigned 
to the CMD module. Therefore, LINK86 CIPROCfl] produces the 
CMD module C1P R 0C.CMD. Details concerning this procedure may 
be found in [Ref. IP]. 
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5j< ;.'r * ;;j i\< # * 3 ;: * * # # * sje # * * * * # * s': * 3jt * * $ * * * * * * # * sjc v v 3js * # * V # ^ * # * * # # * ^ # tf 

* * ;; ;|c 5 ;: * ?;: * * sjt * >;. ;;: * jjr :;: * * # * * * * $ * * * 5 ;: * * * * * * * * * 5 ;: * * * * * * * 3,r * * * # ^ 3|; * 3 * * * # sjc * 

*** NCORTFX input option file *** 

* * * * * * v * * * i\z :; * * * ?:- ^ * ?:- * * * * * ?:* * * # * * * * * * * * * * * * # 3,; :;: * 3;: * * * * * * * * * * # v v * * 

:;: * # * * # :1s # * * # V * * * * sje :1s * * * * * * * * * * * * * **## ❖ * * * * * * * * # * * * tf. # * * * * * * * * * * 

MCCRTEX = TFX/TRC Tc od e [a t TB201 1 ,d ata f ab [M0] ] 1 

* * * pc * * pc * pc pc sp * sp pc sp P« ip pc * * * * pc sp sp * ip sp * sp -t « --P 5jc « « ^s 5p £ sp :p ip « Jp :p >p ip :p * sp ap sp >;.- jp # 3j« :p * if 
Jp sp ;;• sp ;p :p sp ;p :p if :;-. ;p ;p * ip if if :p ip ip ip ip ip if if if ip ip ip ip ;p ip ip if ip ip ip ip ip ip ip ip >p ip tp ip ip ip ip ip ip if ip sp ip ip ip ip tp ip 

-•"•'* C1PHOC input option file 

if if ip sp ip ip sp sp sp ip sp ip ip sp sp if sp sp sp sp sp sp sp sp if if if if if if sp sp ip ip sp if sp if if if sp sp sp if. sp if if i,-. if ip- Sp !,; sp if if if sp :p sp if 
sp sp sp sp sp ip sp sp sp sp sp SP SP SP * ip sp sp sp sp sp ip if if sp ip sp ip sp sp sp sp sp sp sp sp sp sp sp sp sp sp sp sP sp sP sp sp sp sp sp sp Sp sp. Sp Sp sp sp sp sp 

clproc = 

sysinitl [ccieraD[4r59]],datarabr p c*0] , rn f0] ,ad[82l] .mapTall 1 ] , 
sysdev , 
a smr out , 
pa temod 

sp sp sp sp sp sp. ip ip sp ip sp if if ip ip ip sp ip sp sp sp sp sp if. sp if sp if. if if if sp sp sp sp sp sp sp sp sp sp :p sp sp :p sp sp sp sp sp sp sp sp sp sp sp pi sp sp 
sp sp Spsp sp Sp sp sp sp sp pc sp sp sp sp sp sp sp sp pt sp sp sp sp sp sp sp sp pc sp sp sp sp sp sp pc sp sp sp sp p; sp sp sp sp sp ip sp Pc pc pc sp pc pc P-. Sp pc pc SP sp 

***■ TRACKER input option file *** 

pc pc Sp sp sp sp sp sp sp sp ip sp sp s.c sp sp sp sp pc pc pc pc if p< pc sp sp pc pc sp sp sp pc sp pc pc pc pc sp pc sp pc pc pc pc pc sp sp ip pc pc sp pc pc ip pc pc sp sp pc 
sp sp sp sp sp sp pc sp sp sp p : sp sp pc ip sp sp sp pc sp pc sp sp sp sp sp sp sp pc pc sp sp p: pc pc sp p: sp sp sp pc pc pc sp sp sp sp sp sp sp sp spsp pc sp pe pc sp sp sp 

tracker = 

trkdinit [codefab [439] ] , da ta [ab [6f f ] , rn [ 0 ] ,ad [82] ] , map [a 1 1 1 1 , 
trkde tec , 
za temod 

sp sp sp sp pc sp Pc ;P sp SP Pc Pc sp Pc Pc SP pc sp sp sp pc Pc sp sp pc Pc pc sp pc pc pc if if pc sp P-. sp pc sp P-. PC SP sp Pc Pc Pc sp sp sp pc sp sp P-. sp pc sp sp sp sp sp 
sp sp pc pc sp pc sp sp 5? sp sp pc sp sp pc pc sp pc ip sp sp sp sp sp pc sp pc pc pc sp pc pc sp sp pc sp pc pc pc ip pc pc pc pc sp sp sp pc pc pc if if if sp pc sp pc sp sp pc 

*** MSLREACT input option file *** 

sp sp sp sp pc sp pc sp sp sp sp sp sp sp sp sp sp sp pc sp sp sp sp sp pc sp ip pc ip pc sp pc sp ip sp sp sp if sp sp sp sp sp sp sp sp sp sp sp sp sp pc p. sp sp pc sp pc pc pc 
sp pc pc pc sp pc pc pc p: sp sp sp sp sp- sp sp sp sp sp sp sp pc sp pc pc sp sp p: sp pc pc pc sp pc sp pc pc pc sp sp sp pc pc pc pc sp sp sp pc pc pc sp pc sp sp sp sp sp sp sp 

ms lreac t = 

msltinit [cod»[ab [439] ] ,dataTa'b[4d8] ,m [0] ,ad [82]] .maofall]] , 
msl t rai n , 
pa temod 



121 



* * 5 ;; * ;;c ?:< * * * * 5;: # # * # s|c * # * * #***#* * * tfsjc#** 5^# ;;c * * * * * »;c # * ?;; :;; y,c * sjc s;c * ^ * * * * # 

* ####***#*# * £ * 5 j: # SJ: # sjc # sfc *c # # # ^ : * # * * * * * * * * * * sjc * # * * * * * * * * * sjc * * * * * * * * * 

*** C2PR0C Input option file *** 

3 |: # :;- * * # it •','- * if if if if if if if it If if if if if V- if if if if if if if if if if if if if if if * if * if if if # if if if if if if if * 

if :;: s,c if :;: if if * 3 ,: :;.- :;; if if if. if if * if if if sj; if * >* i f a if if it >;s it if # it if if if if if if if if if if if -.;: :|t if if if if if if it v 3 ^ * 3 ^ Hf 

c2proc = 

sysinit2 [cod e [ab [4391 1 ,data[ab[800] ,m[0] ,ad [ Q 2l J ,ma p [a 1 1] ] , 
sy sdev , 
asrnr out , 

F,a temod 

** *#**## #####***##❖*#**##**##*#£**#*###*##*##*##*#**#*#**#** 

* # * # * * * * * * * * * * * * * * * * * * * * * * * * * * * # * * * * ❖ * * * * * * * * * * * * * * * * # * * * * * * 

*** C2USSRS input option file *** 

if if 3 |- :;t if 3 |; if if If if * if if if if if if ifif*ififififi‘.-ffif if if f- Z if x if if Hi if if if if if if if if if if if if if *: if if * » 5 |t if if if if it 

* * * * v * * * * if if if >:< if >:• ;;- if * * * * * * * * if * * * if * * * * ❖ * * * * * * >;-- >:• if * if if if * * * * * * * * * --:< * * 

c2users = 

c2uinit [code[ab[439]] ,data[ab[6ff| , ^ [0] , ad [P2l ) , map f al 1 1 1 , 
ms 1 o rde r , 
trkrprt , 
za temod 

* If If if If- if If ❖ if if Xf If if rf if if if If if # if if if if if if if if if if if if if if if if if if if if if if if if if if if if if if if * =r if i< it if if :;-' 

if if it * ^ if « * if * if *< it if if if if a if if if # if if a if * * * # * # #. if ^ if * if if « if 3;: 3^ * 3;; s;: s;t 3 ^ 3;-. * * it if if it 

*** I^XTRfiCE input option file *** 

^ X ❖ ^ # if ^ % 5^ y- ^ 5;'. ?;s # ;}t ^ # ¥ * ❖ 5 {c ^ # ?S ^ ^ :J: 3 ^ £ * # 3 |c % * * * # * 5 |^ ^ >J' X ^ ^ 

?:? 5;; 5^ ^ ^ * * ;J< y^ >;c ;;? y,c y,< % X >;< * * * * * * 5;: * * * * # s;c x * * 5 ^ 5 ^ * # * i:c * * # 5^ * * ;*,s ;;c 5;.' Sic :;< 

'dXTFACE = TFX/THC Tcode [a b [ A6Cl 1 , da ta [ab [A8Cl J 1 

if if ifif 3;;:^ if if if if if if if if it if if s£ if :;; 3 'c:^ if 3j: if if it it if if 3;-. ; ;c if if if s',; ^ 3;: s;< s;-. if s;: -i: if if if it it 3;< if if 

it* if* if it if if iti: if s;j it 3;: it 3;; 3;; if it if if it if if if it if if if if if sje 3* if if i: if if if if if if if if if if if if if if if if 3;-, 3* 3^ s|: if if 

*** C1PROC/T input option file *** 

it if s;: 3;-- if if 3 |; if -t- -ft if it 3;. 3^ if 3 ?: 3;: 3 1 ,: if if if if if if if 3 |t 3;; 3;; if if * ;;s if if if if 3 |: ;;: 3^ 3;; 3;; 3;; * if if if if if if 3 ',-- s': 3^ 3 ;« 3;: it 

if if If 3;: 3 |r 3 ;: it 3 ;: if 3;: if if if 3;: if it if it if if if if. if 3;-. if if if if it if if if if 3 [c it if it it 3 ^ 3 |: 3 ^ 3;: 3 [; if sjs 3^ 3 * 3 jc if if 3 ? if * if if it if 

clproc/t = 

sysinitl [coderab[439ll ,data[ab[800l ,m[0l ,ad [82] ] , ma p fa 1 1 1 J , 
sy sdev , 
asmrout , 
ea t e t, r r 
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* * * * * s;< y,; ^5 2 ^ ^ ;Jc * * * # * sjt * 5’- * * ^ :',: * ij: * 3|c ;',: * 2 ^ * * * :;s * * * * t * * * * ❖ * # * * * 2 :: * 

* %z ;',< # * * * * # 3j; * * # 5;; * * * # * * # # * * # * * * 2[; # * ;^. * * * * * % * # 2;r # 5^ * * * # ;|t # * ;',i 2jc * * * :Jc # 

*** TPKfl D /T input option file *** 

if *f if ait 5;: ait * aj: -,;- # :;: :,: a* a;t a;: a;t s;t v a;t if sj: a;.- jjc * ;f ajt ^ a|t ait a,t * if a.'t ;|t * * * * sj: ajt * ai: a[t * vf if ait * # a[t * if ait if * a;.- a;: * * 
5 jt if ait * * * * * if * * aitajt -;• a;- ajc * « * * i * * ❖ * ❖ * sjt * si- si-' * ai- K- si- * aft si: si', if if * * ajt * * * ;',: * * si; ait ai * * ajc * if if if 



trker/t = 

trklimt [code[ab[439]] ,data[ab[6ff] , m [0] , ad [82] ] , map Tal 1 1 1 , 
trkdetec , 

£a te trc 

if if * if if if it * * if it sit if if if '.f if if if if if it it if it * si: a*c it * * if if if if * if if if it if if if it if if * a;. * * a;; * aj; * sjt a* ajt -„•< a); a;; 
if it if ait if if if it it it if aft a f if a;: a^: a;: a? a^ a;« a{« ajt a)c * a;a ajs a|f ajc a^ a;c a^ a^ a;-, a;: a(< « a^ « a;: a;: :;: if if sj: a;: a-c a|i a;c if if sjt if if if if it a;-, a;: a* a;: 

*** LAUNCH/T input option file ™ 

* si? a!' a!-' a:? if if if it * * * a* a;.- ajc * a;- ajt ala a;; ait * a|t if ait ai'- ait ajt a;-- ait ait if if a;a s',t sit a;t s|t ajt a;t a;t ait * ajt ait ait ait ait if ait ait ait ait a;a ait ait ait a;t a;.- ait 
if if sit ajt if * sjt a;t ait if. if ;|t a;t a;t if if if a^ a^ if if ajt it a{t a|t if if if it ait ait if if a[t it a;t ititifitifif^if it a;c ait sit ait a;t a',t ait a;t s£ a? aft s;t aje a;t a;t 

launch/t = 

ms It in it [code [ab [4391 1 , BATA [AB [ 4d 8] ,M[0l ,AD[82]] ,map[all]] , 
msl train, 

^atetrc 

a;t if tf if a;t a;t ajt if if if ajt ait ait ait if if if if if if it if aft a{c ajt if if ajt # ajt ajt ^t ait ^t ajt a;t a^ ait a? ait a-,t ait sit a;t ait ait s^ a;t ajc aft if ^t a;t a;t a;t a? a;t a;t sit * 
a't ait ait ait ait ait ait a'.t >;t ait ait -.;t ait :;t ajt ait a;t a',t ajt ait sit ait ait ait ait ait ait ait ait ait sit ait a;-. a|t ait ait ait ait a;t ait ait ait ait * ait if if.ftf-.f if a;t a;t ait a^- a^ a^ ait ait if 

*** C2PH0C/T input option file *** 

ait if ,f if it if if if if if if it it it a>; a;t s{t a^ a^ a^ ajt ait a|t ait a^ ajt y.t a^ if a^ a;t a^ a^ a^ a^ sje a^. a^ if if if ajt a,; it if ajt sit a^ a,t a;- a- ajt sit a;t a;t * a;t if sjt s^. 
ait ajt if if ait ait ait * ait ait a* ait ait ait ait a>t ait ajt ait if if if s*.; ait if * a* sjt ait ait ai' ait ait ait a;t if if ait ait a;t a;-, ajt ait ait a;t a;t ajt ,-;t ait ajt a|t ait ajt a',t ajt a;t ait ajt ajt a|t 

c2pr oc/t. = 

sy si nit 2 [cole [a b [439] ],data[ab[800] ,m[0] ,ad[82]J , map Tal 1] ] , 
sysd ev , 
asmr out , 
ga te trc 

:;c ^ X £ * * * * 5;: * # :;c X ;;c >;? >jc X X % X * 5 js 3 jc 2^ 5 jc ^ sje * s(c ^ ^ 2 [< 2 [« * ^ # ;,c >;< 5;: # 2 |c 5^ * 2;: 2 [c 2 ;< :,c * * 

* * * * ** 5^ 2jt % 2;r 5;; 2;? 2ji 2lC * 2;: * 2|s 5|: 2|C 2;c ?;c 5;: ^ 5^ 2',: 3^ X 2,r * 2;< ^ >ic 2ji 3j4 >;c 2JC * X 2;: V * 3,c * * 3lc 2[: 2,'i * 

*** C2USFR/T input option file --- 

2;? i\i 2,; * 2 ^ # 2;'- i\t 2^ y,< 2^ 2;t * 2;: 2^ * # 2;; 2^ %. # * # ^ y,< ^ # # * * 2;: * 2;: ^ ^ 5 ;c 2;: 2^ 2;? ^3^ * 2* ;,r 2^ 2;? * ?;« 3^ s;c * 3;: 2;.' 2;. 2;? * 

* * V 2 p 3 ^ * % 2 ;t 2 j: 2 ^ 2 it 3 lt 2 ,: 2 ^ 2 ^ 2 ’.: 2 |d # # ^ ^ ^ * * # * 'A' # ❖ 3 ^ ❖ * # * 5 ^ '!'> 2 ^ ^ * 3 ^ 2 ^ 2 r ' 2 ^ 2 ;? * £ * 2 |i * 3 ;: 2 ^ 

c2user/t = 

c2uinit [code[ab[439]] ,data[ab[6ff],m[0l , ad [32 I ] ,nap[all]J , 
msl order , 
trkr prt , 

^a te trc 
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APPENDIX G 



LEVEL II MCORTEX SOURCE CODE 

The LFVEL II source code, written in PL/M-86, is 
contained in file LEVEL2.SFC. Due to the conditional 
compilation switches contained in the code, it should be 
compiled for either the MCOFTEX version or MXTRACE version. 
Files are provided to he used with the SUBMIT utility [Ref. 
191. The MCORTEX version of LEVEL II is compiled by using 
the SUBMIT file L2CMPM.CSD ( LEVELS compile, MCORTEX). LEVEL 
II is one of the relocatable code modules shown in the 
SUBMIT file LNKKM.CSD, which is used to link the modules 
together for KORE.OPS. After linking, the resultant file 
must be located using the L0C86 utility. This is provided 
for in the SUBMIT file LOCEM.CSD (locate MCORTEX). The file 
FORE is created and becomes KORE.OPS after transfer to the 
multi-user CP/M-86 system. KORE.OPS is loaded by MCORTFX.CMD 
under the CP/M-86 operating system. Memory maos for KORE.OPS 
and KORE.TRC are provided at the end of Appendix H. The map 
info rmat, ion comes from KOBE . MP2 after compiling, linking, 
and locating the applicable files. 

In the source listing for LEVFL2.SRC, the executable code 
must begin in column 7 (see L2CMPM.CSD). It appears left 
justified in this listing due to thesis format rea ui rements . 
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* * * * * * * * ❖ '!' # * * * # * * * * * * # ^ * * * * sjc * 5jc * * ❖ * * * ❖ * 5*,t * * * * * * tf :',: tf * :Jc * * # # sjc # * # 

* tf 5 ;: * * * 5£ 5,2 5,2 5 ; : * 5;j # :;: :;: * :;? 5 ;: * * * :,c ?’,2 * * * * * 5 ;? >J: >;? :;c * >;: >\i # s;c # 5ls * 5? * 5jc 5;? ^ * # ?;2 5*,2 ?;? 5jx * * # 5 ;: # $ # # 

*** SUBMIT file L2CMPM.CSD *** 

* * * * * * * * * * * * * V * * * * * * * * ** * * * s’.: * * * * * * * * * * * * * * * * 5:: * * * * * * * * * * * * * * * 

* * * * * * * * * * * * * * * * * * * * * * 5;; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 

: FI : PLMS6 : FI : LEVELS. SRC SET ( MCORTEX ) NOCOND LEFTMARGIN (7) 

LARGE 

* * * * * * * * * * * * * * * * * * * * * * * * * **** * * * * * * * * * * * * ****** * * * ** * * * * * * * * 
* ******* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ***** * 
*** SUEMIT file L2CMPT.CSD *** 

* * * * * * * * * * * * * * >,: * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ******* v * * * * * * * 

* * ** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * V * * * * * * * * 

:F1 : PLM86 :F1 :LEVEL2.SRC RESET < MCCRT EX ) NOCOND LEFTMAEG I N ( 7 ) 

LARGS 



125 



/ ^ # * * * * X # # * # * # * * * # # ;;: * * * * * :,' a;c 5;: ?:■ 3;; t \< * 5;: 5 i: 3;: * # # * * * * * ;;: * * * * ; ;: * ;;? .*;: # ; ;c ; ; : 5 ;< 3;: sjc / 

# 3js :;« « # 3* 3lc # ;£ 3,^ ;;; * 3j? 3jc # 3j< 3 ;: 3 ^ 3 ;: 3 ^ # # # Jfs ❖ * * a£ ❖ * * # tf «S a£ * V 3 ^ 3,: 3|c * :(: 3 ;: * :;c ;;< 3 ^ * * s|r * *« 3 ;: 3;c sjs / 

/ * 0 0 0 9 * * ** * * # * ❖ * * # * # 5r * :;« 3^ # * :;- * 3|; 3 ;: 3* # * v a'.' V a^ * a;? 3^ ^ * :|c sjc * * * 3 ;: s|'. * * s£ 3jc 3jc sjr / 



FILE : 


LFV FL2.SRC 




VERS ION : 
PROCEDURES 


BREWER 8-18-84 




DEFINED: 


gateakeeper 


CRSATE$EVC 




READ 


AWAIT 




ADVANCE 


PREEMT 




TICKET 


CREATF5PROC 




DEFINF$CLUSTER 


DISTRIBUTION$MAP 




OUT$CHAR 


OUT $LI NE 




OUTSNUM 


OUT$DNUM 




SENDACHAR 


OUT $HEX 




RECV$CI! a p 


I N $CH AP 




I N $ NUM 
IN $HEX 


I N $DNUM 



REMARKS: !!' CAUTION !!! !!! CAUTION !!! !!! CAUTION!!! 

IE NEW USER SFRVICES ARE ADDED TO THIS MODULE 
OP CHANGES ARF MADE TO EXISTING ONES, MAKE 
SURE THE LOCATOR MAP (FILE: K0RE.MP2) IS CHECK- 
ED TO SEE IF THE LOCATION OF 'G ATE$KEEPFR ' HAS 
MOT CHANGED. THE ABSOLUTE ADDRESS OF THIS 
PROCEDURE HAS BEEN SUPPLIED TO THE GATE $MODULE 
IN FILE: GATE. SRC. IE IT HAS CHANGED THE NEW 
ADDRESS SHOULD BE UPDATED IN FILE: GATE. SRC 

AND RECOMPILED. ALL USER PROCESSES WILL HAVE 
TO BE RELINKED WITH FILE: GATE. OBJ AND 

RELOCATED. 

LITERAL DECLARATIONS GIVEN AT THE BEGINNING 
OF SFVERAL MODULES ARE LOCAL TO THE ENTIRE 
MODULE. HOWEVER, SOME ARE LISTED THE SAME 
IN MORE THAN ONE MODULE. THE VALUE AND 
THEREFORE THE MEANING OF THE LITERAL IS 
COMMUNICATED ACROSS MODULE BOUNDARIES. 
'NOT$FOUND' USED IN LOCATES EV C AND 
CREATES EVC IS AN EXAMPLE. TO CHANGE IT IN 
ONE MODULE AND NOT THE OTHER WOULD KILL 
THE CREATION OF ANY NEW EVENTCOUMTS BY THE 
OS . 



CONDITIONAL COMPILATION COMMANDS ARE USED TO 
PRODUCE TWO VERSIONS OF THE MCORTEX OPERATING 
SYSTEM. "MCORTEX" IS THE VERSION WITHOUT ANY 
I/O PERTAINING TO ENTRY OF OS PRIMITIVES. WITH 
THIS VERSION IT IS EXPECTED THAT THE USER HAS 
COMPLETED DEBUGGING OF USER PROCESS CODE AND 
THIS IS NO LONGEP NECESSARY. IN CONTRAST, 

THE CODE BRACKETED BY ’NOT MCORTEX’ IS THE CODE 
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FOR THF TRACE VERSION OF MCORTHX KNOWN AS 
"MXTRACE . " THIS VERSION PROVIDES DIAGNOSTIC 
'HOOKS' INTO THF OS AND SHOULD BE USED DURING 
THE CODE DEVELOPMENT STAGES. 



*/ 

/ * if if if * * * if if if if v * if if if # if * Sic * * * if * # sjt # # # * * # s? * # aj: # :|c ;;; if if if 'A- if if it / 



/ * £ 0 0 7 3 * 5;e * * * # * S« # >;: # £ >;e ^ if if if 5* * * if s;< *;e if. if # j;t if if if if if if s;; :je * if # if J 

L2$M0DULE : DO? 



/ * ❖ # ?r * # ❖ ❖ J$f * * # * * 5',C # ❖ # # * * # ❖ ?! • * * * * ?! * *. % * * ❖ * # ?!' ?!: 3i' ❖ # ❖ # ?r ?'r ?!< ?!< ?r ?r * ?;< ?r * # * * * ?r / 
/* :J: * * # * # * * >!< * 5^ ^ * * * * # * 5 * # * >Jt * * * # * * # * * * / 

/* LOCAL DECLARATIONS ' ; V 

DECLARE 



MAX $ CPU 


LITERALLY 


'10,, 




MAX$ VPS$CPU 


LITERALLY 


'10 , 




MAX$CPU$$$$M?X$VPS$CPU 


LITER ALLY 


'100' , 




FALSE 


LITERALLY 


'0;, 




READY 


LITERALLY 


'1'. 




RUNNING 


LITERALLY 


'3', 




WAITING 


LITERALLY 


'v', 




TRUE 


LITFEALLY 


'119' , 




NOT$FOUND 


LITERALLY 


'255' , 




PORT$CA 


LITERALLY ' 


00C AH ' , 




RESET 


LITFRALLY 


'0', 




ENET 


LITFRALLY 


'0', 




ERB$ BLOC K$ LENGTH 


LITERALLY 


'20' , 




EVC$TY PE 


LITERALLY 






FRB$HEAD 


LITFRALLY 


'0FCH ' , 




ERB$ WRITE 


LITERALLY 


'0FDH', 




ERB$ WRITER REQUEST 


LITERALLY 


'0FFH ' , 




I MTSRETURN 


LITERALLY 


'77H'; 




0 1 0 2 ^ ^ * * * * **#*######* ?!' ?* # * * # # 5^ # * # * 


>r * ?;< * * 5* * :;t * y,c « :;c / 


PROCESSOR DATA SEGMENT 


TABLF 




*/ 


DELAKED PUBLIC IN MODULE 'Ll ^MODULE ' 


*/ 


IN FILE 'LFVFL1 


✓ 


*/ 



DECLARE PRDS STRUCTURE 

( CPU$ NUMBER BYTE, 

VP$START BYTE, 

V P$END BYTE, 
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V PS $PER SC ?U 
LAS T$PUN 
COUNTER 



BYTF , 
BYT?, 
WORD 



extfrnal; 



/ ^ 0 1 1 5 # # # a* • # # a£ a!'. # # s;t sjc i\t # s)x >;j j;c y,: # # X' # # # >Jc # 3[? >;< # y,c >;« # >;c # >;< # 



/* SLOE A L DATA EAS? DECLARATIONS 
/* DECLARED PUBLIC IN FILE 'GLOBAL .SRC ' 

/* IN MODULE 'GLOB AL$MODULE' 



*/ 

*/ 

*/ 



DECLARE VPM ( MfiX$CPU$$$$MAX$VPS$CPU ) STRUCTURE 



( VP$ ID 


BYTE, 




STATE 


BYTE, 




VP$PR I OR I TY 


BYTE, 




EVC$THREAD 


BYTE, 




EVC$AW$V ALUE 


WORD , 




SP$.REG 


WORD , 




SS $REG 


WORD ) 


external; 


DECLARE 


LOCAL$CLUS TFR$ AD DR . 


WORD 


external; 



DECLARE 


EVENTS 


BYTE 


external; 


DECLARE E V C $ T B L 
( EVC $NAMS 
VALUE 

REMOTE$ ADDR 
THREAD 


(100) STRUCTURE 
BYTE, 
WORD, 
WORD, 
BYTE) 


external; 


DECLARE 


SEQUENCERS 


BYTE 


EXTERNAL; 


DECLARE SFO^TAB 
(SEO$N»ME 
SEQ$VALUF 


LE (100) STRUCTURE 
BYTF, 
WORD ) 


EXTERNAL; 


DECL “RE 

N R $ V P S f MA X$CPU ) BYT^ 


EXTERNAL, 


NR$RPS 


RYTE 


EXTERN «L, 


HDW$ I NT$FLAG 


( MAX $ CPU ) BYTE 


EXTERNAL, 


GLOB AL$ LOCK 


BYTE 


external; 



/*01 56 ^ ^ ^ ^ # # ❖ * # ^ # :r # ^ 3j: ^ # :|c j;c }■{ # j|: >’r if. ! 

/* DECLARATION OF EXTERNAL PROCEDURE REFERENCES */ 

/* DECLARED PUBLIC IN FILE 'LEVEL1.SRC' */ 

/* IN MODULF 'LEVELl$MODULE' */ 

VPSCHEDULER: PROCEDURE EXTERNAL » END; 

/* IN FILE 'SC II ED. ASM' */ 
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RET$V? 



PROCEDURE BYTE EXTERNAL; END? 



LOCATED SVC ; PROCEDURE ( FVFNT$N AMF ) BYTE EXTERNAL? 

DECLARE EV ENT$M A ME BYTE? 

END? 



LOCATEtSEO : PROCEDURE ( SEQ$N AME ) BYTE EXTERN A L » 

DECLARE SEQ$N AME BYTE ; 

end; 



/ * e 0 1 7 5 * * # * # # # # # # # ^ca;c # >;s # # 5^ >;: # 3R: # 3^ 3^ 

/* DIAGNOSTIC MESSAGES OF "HOOKS" 



* # s* * s£ :;c s',: * * * * * sjs * / 

*/ 



$ I F MOT MCORTEX 



DECLARE 
MSG16(*) 
M S G 1 7 ( * ) 
MSG18(* ) 
M S G 1 9 ( * : ) 
MSG21 (*) 
MSG23 ( * ) 
MSG24 ( * ) 
MSG25 ( * ) 
M S G 2 6 ( * ) 
MSG27 ( * ) 



BYTE 

BYTE 

BYTE 

BYTE 

BYTE 

BYTE 

BYTE 

BYTE 

BYTE 

BYTE 



INITIAL 
INITIAL 
INITIAL 
INITIAL 
INITIAL 
I N IT I AL 
INITIAL 
INITIAL 
INITI AL 
INITI AL 



( 'ENTERING 
( 'ISSUING 
( 'ENTERING 
( 'ENTERING 
( 'ENTERING 
( 'ENTERING 
( 'ENTERING 
( 'ENTERING 
( 'ENTERING 
f 10, 'VNTERI 



PREEMPT', 13. 10, '%'), 
INTERRUPT! ! ',13,10,'/.'), 
AWAIT ',10,13, '%' ) , 
ADVANCE ',10,13,'%'), 
CREAT E$EVC FOR %'), 

READ FOP EVC: %'), 

TICKET', 13, 10, '%') , 

CREAT E$SEO %'), 
CREATE$PROC ' , 10,13, '%' ) , 
NG G A TE$KEEPER N= %' ) \ 



DECLARE 

CR LITER ALLY '0DE ' , 
LF LITERALLY 'OAH'; 



$END I? 

/ * 0 2 0 1 5 * s * * * * * * * * # * * * * 5*r * jJc * sjs * # :Jc ;‘,c # :|s 3 ;? 3 ;: * # # 3^ 3jr s'.c * * / 

/ * * * * ❖ * 3 ',' * * * * * # * • * * # * * * * * * * * # * * * # * * * # * * * * * * * * * * * * * * * * * * * * * * * / 

/** GATE$K EEPFR PROCEDURE BREWER 8-18-81 ****/ 

/ * * s!s s;« s,‘s S|- s’,: si: s’ - # # # * s{; s£ * sS # s;-. s|'. si: s|: s;.- >;t >;* 5|: * s;: s ‘f s|: s;< sis s|s / 



/* THIS PROCEDURE IS THE ENTRY INTO THE OPERATING */ 
/* SYSTEM DOMAIN FROM THE USER DOMAIN. THIS IS THE */ 
/* ACCESS POINT TO THE UTILITY /SERV ICE ROUTINES AVAIL- */ 
/* ABLF TO THE USER. THIS PROCEDURE IS CALLED BY THE */ 
/* GATE MODULE WHICH IS LINKED WITH THE USER PROGRAM. */ 
/* IT IS THE GATE MODULE WHICH PPOVIDES TRANSLATION */ 
/* FROM THE USER DESI RED FUNCTION TO THE FORMAT REQUIR- -/ 
/* ED FOR THF GATEKEEPER. THE GATEKEEPER CALLS THE */ 
/* DESIRED UTILITY /SERVICE PROCEDURE IN LEVEL2 OF THE V 
/* OPERATING SYSTEM AGAIN PERFORMING THE NECESSARY */ 
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/* TRANSLATION FOR A PROPER CALL. THE TRANSLATIONS ARE */ 
/* INVISI3LF TO THE USER. THE GATEKEEPER ADDRESS IS */ 
/* PROVIDED TO THE GATE MODULE TO BE USED FOE THE IN- */ 
/* DIRECT CALL. ' */ 
/ # / 



/* THE PARAMETER LIST IS PROVIDED FOR CONVENIENCE AND 
/* REPRESENTS NO FIXED M r A N I N G , EXCEPT FOR 'N ' . 

/* N FUNCTION CODE PROVIDED EY GATE 

/* BYT BYTE VARIABLE FOR TRANSLATION 



/* 

/*0243 



WORDS WORD 

PTR POINTER VARIABLE FOR TRANSLATION 



*/ 

*/ 

*/ 

*/ 

*/ 

'•7 



GATE$KEEPER : PROCEDURE (N, e Y T, WORDS , PTR) REENTRANT PUBLIC? 



DECLARE 

(N, BYT) PYTE, 

WORDS WORD, 

PTR POINTER? 

/* 1-0 SERVICES ARE NOT ACKNOWLEDGED FOR TWO REASONS: ’7 

/* 1. TPEY ARE CALLED SO OFTEN THAT DIAGNOSTIC OUTPUT */ 

/* WOULD BE TOO CLUTTERFD. */ 

/* 2. THEY THEMSELVES PRODUCES I -0 EFFECTS THAT */ 

/* ACKNOWLEDGE THEY ARE BEING CALLED. */ 



$IF NOT MCOKTEX 



IF N < 10 THEN DO? 

CALL OU T $ L I N E ^ 0M S G 2? ) J 
CALL OUT$MUM(N); 

CALL OUT$CHARfCR)J 
CALL CUTiCHAR(LF); 

end; 

$ END I F 



DO CASE 


n; 


/* 


N 


*/ 


CALL 


AWAIT(BYT, WORDS ) ; 


/* 


0 


*/ 


CALL 


ADVANCE(BYT); 


/* 


1 


*/ 


C fl LL 


CREATE$EVC( BYT) ; 


/*• 


2 


*/ 


CALL 


CREATE$SE0(BYT) ; 


/* 


3 


*/ 


CALL 


TICKET(BYT, PTR) J 


/* 


4 


*/ 


CALL 


READ(PYT.PTR) ; 


/* 


5 


*/ 


CALL 


CREATE$PROC(PTR) J 


/* 


6 


*/ 


C ft LL 


PREEMPT ( BYT ); 


/* 


7 


*/ 


CALL 


DEFINF$ CLUSTER (WORDS ) ; 


/* 


8 


*/ 


CALL 


DISTRIBUTION$MAP(PTR) J 


/* 


9 


*/ 



$ I F NOT MCOFTEX 



/*** MXTRAC F 



ijc '!c 



MXTRAC E ***** MXTRAC E 



MXTRACE ***/ 
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/*** M x TRAC? 



MXTRACE 



MX TRACE 



MX TRACE ***/ 



$ END IF 



end; 



CALL 


OUTSCFAR(BYT) : 


/* 


10 


*7 


CALL 


OUT?L I NE ( PTR ) 5 


/* 


11 


*/ 


CALL 


OUT? NUM( BYT ) J 


/* 


12 


*/ 


CALL 


OUT$DNUM (WORDS ) ; 


/* 


13 


*/ 


C ALL 


IN ?CH A R ( PTR ) J 


/* 


14 


*/ 


CALL 


I N $NUM ( PTR ) ? 


/* 


15 


*/ 


CALL 


IN?DNUM( PTR ) 5 


/* 


16 


*/ 


; / 


* CASE */ 








RETUR 


n; 








/* G 


ATE?KEFPFR */ 










# X s X' Jr Jr ^ ? r Jr Jr # Jr Jr Jr Jr # 5 r % ❖ Jr Jj 


fjt O* v*> V 

I 5 n' -V T T < 


r Jr J’r 


V 'r V 



/* 

/* 

/* CREATES 



CREATE$EVC PROCEDURE 
EVENTCOUNT FOR 



BREWER 



8 - 18-84 */ 

*/ 

INTER-PROCESS SYNCHRONIZATION. */ 
/* EVENTCOUNT IS INITIALIZED TO 0 IN THE EVENTCOUNT TABLE.*/ 

! # j£ # 2j; # ?,c ?;s ^ :;c £ :js # # jjt 3jc # ^ sfc sjojc # # 3 ^ sjc # # # j{; £ X' # # # 3 ^ # 3j< # # 3 ^ 2,‘c # 3js 3j: X' Jr -/ Jr Jr Jr Jr Jj< # X> Jr / 

CREATE$ EVC : PROCEDURE ( NAME ) REENTRANT PUBLIC ; 

DECLARF NAME BYTE; 

$IF NOT MCORTEX 



/*** MXTRACE ***** MXTRACE 
/*** MXTRACE ***** MXTRACE 
CALL 0UT?LINE(@MSG21) ; 
CALL OUT$NUM( NAME) J 
CALL OUT$CHAR(CR); 

CALL OUT$CH AP ( LF ) ; 



5|i 

o# 

T # i* ^ 'r* t 



MXTRACE ** : 
MXTRACE *** 



** MXTRACE ***/ 
** MXTRACE ***/ 



$ END IF 

/* ASSERT GLOBAL LOCK */ 

DO WHILE LOCKS ET(OG LORAL? LOCK, 119); END; 

IF /* THE FVENTCOUNT DOES NOT ALREADY EXIST */ 

LOC ATE? EVC ( NAME) = NOT$FOUND THEN DO? 

/* CREATE THE FVENTCOUNT ENTRY BY ADDING THE */ 
/* NEW EVENTCOUNT TO THE END OF THE EV C $TABLE */ 
E VC ?TBL ( EVFNTS ) . FVC$N A ME = NAME J 
FVC$TBL(EVFNTS ) .VALUE = 0; 

EVC?TBL(EVFNTS ) . REMOTE?ADDR = LOCAL$CLUSTER$ADDR ; 
EVC$TBL(EVENTS ) .THREAD = 255? 

/* INCREMENT THE SIZE OF THE EVC$TABLE */ 

EVENTS = EVENTS + 15 
END; /* CREATE THE EVENTCOUNT */ 

/* RELEASE THE GLOBAL LOCK */ 
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GLOB AL$LOCK = 0? 

return; 

end; /* CREATE$EVC PROCEDURE */ 



/ * 0 3 2 4 * * * * * * * * * ’S' # * * # * # ❖ # * # 

/* READ PROCEDURE 
/* 



^ J'r 5^ jjc ;Jc >Js sf: 5jc j,c sjc 5J; ijj sjc ;Jc ^,c sji 2 j: ^ sjs v ?Jc >’,c y 

BREWER 8-18-84 */ 

* / 



/* THIS PROCEDURE ALLOWS USERS TO READ THE PRESENT VALUE */ 
/* OF THE SPECIFIED EVENT $COUNT WITHOUT MAKING ANY */ 
/* CHANGES. A POINTER IS PASSED TO PROVIDE A BASE TO A */ 



/* VARIABLE IN THE CALLING ROUTINE FOR PASSING THE RETURN */ 
/* VALUE PACK TO THE CALLING ROUTINE. */ 

f 3r ## # # # Jr ## ❖ # >r *r # # # # # # # ## # # S|t >Jc # ## 3*C # # # # # ## *r # # # # ## SjS # # # # / 



READ: PROCEDURE ( EVC $NA ME , RETS $PTR ) REENTRANT PUBLIC? 



DFCLA L F 

EVC AN a ME 
EV CTBLA INDEX 
RETS $PTR 
EVC$V*LU?$RET 



BYTE, 

BYTE, 

POINTER , 

BASED RETS $PTR WORD? 



/* SET THE GLOBAL LOCK */ 

DO WHILE LOCK SET ( OGLOBAL$LOCK ,119)* END? 



$ I E NOT MCORTEX 



/*** MXTRACE ***** MXTRACE 
/*** MXTPACE ***** MXTRACE 
CALL 0UT$LINE(@MSG23) J 
CALL OUT$MUM(EVC$NAME) ? 
CALL OUT$C p AR ( CR ) ? 

CALL OUT$CRAR ( LF ) * 



***** MXTRACE 
***** MXTRACE 



***** MXTRACE 
***** MXTRACE 



/ 



$ END I F 

/* OBTAIN INDEX */ 

EV CTBL$ I NDEX = LOCATE$EVC( EVCiNAME )? 

/* OBTAIN VALUE */ 

EVC$ VAI.UE$RET = EVC$TBL( EVCTBL$IND*X ). VALUE? 



/* UNLOCK GLOBAL LOCK */ 
G LOB AL$ LOCK = 0 ? 

RETURN? 

END? /* READ PROCEDURE */ 



/ ^ 0 3 6 8 Jr '*»' ❖ Jr ^ sji 5|; # ;J< sj? # 5',c ;|c # ;Jt 2{s # ijs j|c :',c ^ 

/* AWAIT PROCEDURE 
/" 



5 0 O, «'• %t» «0 »'« »•# »'» *v 

r +r v -i- "i' »r *t* 'i* *r 'r v v 



Jr 



»v *•» J. *•* 
v v 'i' n- 'r 'i* 



*/ 

*/ 

*/ 
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/* INTER FROCESS SYNCHRONIZATION PRIMITIVE. SUSPENDS 
/* EXECUTION OF RUNNING D POCESS UNTIL THE EVENTCOUNT HAS 
/* REACHED THE SPECIFIED THRESHOLD VALUE, " AWAITED*V ALUE 
/* 'USED BY THE OPERATING SYSTEM FOR THI MANAGEMENT OF 
/* SYSTEM RESOURCES. 



*/ 

*/ 

*/ 

*/ 

*/ 

*/ 



AWAIT: PROCEDURE ( EVC* ID, AW A I TED RVALUE ) REENTRANT PUBLIC; 



DECLARE 

A WAITED* VALUE, WORD, 

( EVC $ ID , NEED*SCHED, RUNNI MG$VP , EVCTBL* I NDEX ) BYTE; 
$17 NOT MCORTEX 



/*** MXTRACE ***** MXTRAC 1 *’ 
/*** MXTRACE ***** MXTPACE 



***** MXTRACE 
***** MXTRACE 



3,C 

sjc # :;c 



MXTRACE 

MXTRACE 




/ 

/ 



CALL 0UT$LINE(0MSG18) ; 

*END IE 

/* LOCK GLOBAL LOCK */ 

DC WHILE LOCK*SET(QGLOBAL*LOCK, 119); END ; 

NEED$SCHED = TRUE? 

/* DETERMINE tp? RUNNING VIRTUAL PROCESSOR */ 

RUN N I NG* VP = RET$VP; 

/* GET EVC INDEX */ 

EVCTBL$ I NDEX = LOC A TE$EVC ( EV C $1 D ) ? 

/* DETERMINE IE CURRENT VALUE IS LESS THAN THE 
AWAITED VALUE */ 

IF EVC$TPL ( EVCTBL$I NDEX ) .VALUE < AWAITED* VALUE THEN DO; 

/* BLOCK PROCESS */ 

VPM ( I.UNN I NG* VP ) . EV C* TFRE A D=E VC *TBL ( EVCTBL* INDEX ) .THREAD? 
VPM (RUNNI NG*VP ) .EVC* AW *V ALUE = AWA ITED* V ALU E? 

evc$tbl: evctbl* index ). thread = running*vp; 
disablf; 

PRDS . LA ST$RUN = RUNMING$VP; 

VPM( RUNNI NG*VP) .STATE = WAITING? 

END? /* BLOCK PROCESS */ 

ELSE /* DO NOT BLOCK PROCESS */ 

NEED*SCHED = FALSE? 

/* SCHFDUI.E THE VIRTUAL PROCESSOR */ 

IF NEED*S CHED = TRUE THEN 

CALL VPSCHEDULER? /* NO RETURN */ 

/* UNLOCK GLOBAL LOCK */ 

GLOBAL* LOCK = 0? 
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return; 

end; /* AWAIT PROCEDURE */ 



/ 5 ' f 0 4 2 7 5,: 5 * ; 5,: r * r '•* # # # 5 » i 5 >' # # # # # # # 'r 't 'I s # 3£ ^ # 5|c :;c sjc 3|; 3^ >;« # ;;; sj; 3 ;; 3|: 3 ;? s;c # 3£ 3|t y' 

*/ 



/* 

/*- 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 



ADVANCE PROCEDURE 



PREWEP 8-18-84 



/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 

-*/ 

*/ 

*/ 

*/ 

"•7 



INTER PROCESS SYNCHRONIZATION PRIMITIVE. INDICATES 
SPECIFIED EVENT HAS OCCURED EY ADVANC ING ( I NCREMENTI NG ) 
THE ASSOCIATED EVENTCOUNT. EVENT IS BROADCAST TO ALL 
VIRTUAL PROCESSORS AWAITING THAT EVENT. 

A CALL TO ADVANCE WILL RESULT IN A CALL TO THE SCHED- 
ULER, EVEN IF THE ADVANCING OF THE EVENTCOUNT DOES 
RESULT IN AWAKENING ANY NEW PROCESSES. THUS, ANY 
HIGHER PRIORITY ONBOARD PROCESS READIED BY AN OFF- 
BOARD OPERATION WOULD BE SCHEDULED NEXT. 



/* 

/* CALLS MADE TO: 
/* 

/* 



OUTALINE 
S YSTEM$ 1 0 
VPSCHEDULER 



(NO RETURN) 



/ %v sy if* y* »V if* »•* *** if* o* y* *•* *•* »<* y* *t* y* o-* j* y. y* y* y* ju y* y* y» y* y. y* y* s>* y. y* y* y* y* y* *** v-* y« y« y* »•* y* y* y* «jl* y* «•« y* 
•f- *v •S' •¥* t v •*%' *1' *t* -V' *1^ *»* *('T , v a- *p v x v v t *i' t* ¥ "i* *t* 'r *i' v t Af* v »r ¥ v *i* «v* *t» nr* *i* *r *r , r , r 'r *v 

ADVANCE: PROCEDURE ( EV C$1 D ) REENTRANT PUBLIC? 



DECLARE 

( EVC $ I D , EVCTBL$ IN DEX ) 

(SAVE, RUNNING$VP, DUMMY $ VAR , I) 
CLUSTER $ADDR 



BYTE, 

BYTE, 

WORD? 



$ I F NOT MCORTEX 



/*** MXTRACE 
/*** mxTRACE 



***** MXTRACE ***** MXTRACE 
***** MXTRACE ***** MXTRACE 



***** MXTRACE ***/ 
***** MXTRACE *** / 



CALL 0UT$LINF((AMSG19) ? 



$END I F 

/* LOCK THE GLOBAL LOCK */ 

DO WHILE LOCKS ET OGLOBAL$ LOCK, 119) ? END? 



RUNNING$VP = RFT$VP? 

EVC TBL$ I ND V X = LOCAT' p $FVC(EVC$ID) ? 

EVC$TBL(EVCTBL$INDEX) . VALUE=EVC$TBL( EVCTBL$ INDEX ) . V ALU E + 1 
IF EVC$TBL( EVCTBL$ INDEX ) ,RFMOTE$ AD DR <> LOCA L$ CLUSTERS ADD K 
THEN DO? 



/* REMOTE COPY IS NEEDED - THE CONVENTION IS: 

AN EVENTCOUNT THAT HAS A REMOTE COPY WILL 
NOT HAVE ITS ^ EMOTE$ ATDR FIELD EQUAL TO THE 
LOC AL$CLUSTEP$ ADDP. 
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*/ 



CLUSTFR$ADDR=EVC$TBL(EVCTPLINDEX ) . REMOTE$ ADDR 

XOR local$cluster$addr; 

GLOB 4L$LOCX = 0 ? 

CALL SYSTEM$IO(FN^T,EVC$TYPE, EVC$ID, 

EVC$TBL( EVCTBL$INDEX ). VALUE .CLUSTER $ ADDR ) J 
DO WHILE L0CK$SFT(PGL0BAL$L0CK,119) J END; 

end; /* ITD */ 

SAVE = 2555 

I = EV C $TBL ( FVCTBLSl NDFX ) . THREAD V 
DO WFILF I C 255 ; 

IF VPM(I ) ,EVC$AW$VALUF <= EVC$TBL (EVCTBL$ INDEX ) .VALUE 
THEN bo; /* 4WAKFN THE PROCESS */ 

V PM ( I ) .STATE = READY; 



VPM( I ) .EVC$A W$V ALUE - 0? 

IF SAVE = 255 THFN DO? /*THIS FIRST ONE IN LIST-/ 
DUMMY $VAR = V PM ( I ) . F.V C $ THREAD • 

3VC$TBL( EVCTBL$ INDEX ) .THREAD = DUMMY$ VAP ; 

VPMf I ) . EV C’^THRFAD = 255? 

I = EVC$TBL ( EVCTBL$ I NDFX ) . THREAD; 

END; /* IF FIRST */ 

ELSE DO? /* TEEN THIS NOT FIRST IN LIST */ 

VPM ( SAVE ).EVC$THPF«D = VPM( I ) . EVC$THi'E AD ; 
VPM ( I ).FVC$THREAD = 255? 

1 = V PM ( SAVE ) .EVC$TFREAL? 
end; /* IF NOT FIRST */ 

END; /* IF AWAKEN */ 

ELSE DO? /* DO NOT AWAKEN THIS PROCESS */ 

S AVE = I ; 

i = vpm( i ) .fvc$thread; 

end; /* IF NOT AWAKEN */ 

END; /* DO WHILE */ 

PRDS.LAST$RUN = RUNNING$VPJ 

VPM(RUNNING$VP) .STATE = READY J 

CALL VPSCHEDULEP; /* NO RETURN */ 

/* UNLOCK THE GLOBAL LOCK */ 

GLOBAL$I.OCK = 0; 

return; 

end; /* ADVANCE PROCEDURE */ 



/*051 8 ************************** **************** 5 






'*/ 



/* PREEMPT PROCEDURE BREWER 8-18-84 */ 

/# * f 

/* THIS PROCEDURE AWAKENS A HI PRIOITY PROCESS LEAVING */ 
/* THE CURRENT RUNNING PFOCESS IN THE READY STATE AND */ 

/* CALLS FOR A RESCHEDULING. THE HIGH PRIORITY PROCESS */ 

/* SHOULD BLOCK ITSELF WHFN FINISHED. */ 



/* IF THE VPdD IS 'FE' OR THE MONITOR PROCESS, IT WILL */ 
/* MAKE IT READY WHERE-EVFR IT IS IN THE VPM. THE FOLLOW-*/ 
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/* ING CODE DOES MOT TAKE ADVANTAGE OF THE FACT THAT 
/* CURRENTLY IT IS THE THIRD ENTRY IN THE VPM FOR EACH 
/* REAL PROCESOH . 



/* 

/* CALLS MADE TO: OUTLINE, VPSCITEDULER 

y # # 5jc # * $ # # # # # 5,*' # # # # # ?.* $ >;< # # # 3 ;: # # # >;? # * ^ ^ 5 ;: >;c :;c ?;c v # ; 



-•7 

*/ 

*/ 

*/ 

*/ 



PRFSMPT: PROCEDURE' VP$ID ) REENTRANT PUBLIC? 



DECLARE (VP<ID,SEARCH$ST,SFARCH$END, CPU, INDEX) BYTE? 
$IF NOT MCORTEX 






MX TRACE ***** 
MX TRACE ***** 



MXTRACE ***** 
MXTRACE ***** 



MXTRACE ***** 
MXTRACE ***** 



MXTRACE ***/ 
MXTRACE ***/ 



CALL OUT$LINE( 0MSG16 )? 



$ENDI F 



IF V P$ I D <> 0FEH THEM DO? /* NORMAL PREEMT */ 

/* SEARCH VPM FOR INDEX FOP ID */ 

SEARCH$ST = 0? 

DO CPU = 0 TO ( NR$RPS - 1 ) ? 

SEARCH^ END = SEA RCH$ST + NR$VPS( CPU ) - 1 5 
DO INDEX = SEARCHSST TO SEAR CH$END? 

IE VPM ( INDEX ) . VP$ID = VP$ID THEN GO TO FOUND? 

END? /* DO INDEX */ 

SEAPCH$ST = SEARCH$ST + MAX$VPS$CPU? 

END? /* DO CPU */ 

/* CASE IF NOT FOUND IS MOT ACCOUNTED FOR CURRENTLY 

FOUND: 

/* LOCK THE GLOBAL LOCK */ 

DO WHILE LOCK$SET(OGLOBAL$LOCK ,119) ? END? 

/* SET PREEMPTED V? TO READY */ 

VPM' INDEX ). STATE = READY? 

/* NEED HARDWARE I MTR OR RE-SCHED */ 

IF ( C°U = PRDS . C PU$ NUMBER ) THEN DO? 

INDEX = RFT$VP? /* DETERMINE RUNNING PROCESS */ 
DISABLE? 

PRDS .LAS T$ RUN = INDEX? 

V PM ( INDEX ). STATE = READY? /* SET TO READY */ 
CALL VPS CHEDULER ? /* NO RETURN */ 

FND? 

ELSE DO? /* CAUSE HARDWARE INTERRUPT */ 

ilF NOT MCORTEX 



/*** MXTRACF 
/*** MXTRACE 



***** MXTRACE ***** MXTRACE 
***** MXTRACE ***** MXTRACE 



***** MXTRACE ***/ 
***** MXTRACE ***/ 



CALL OUT $ LI NE ( 0MSG17 ) ? 
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$SNDIF 

HDW$INT$FLAG( CPU ) = TRUE? 

disable; output ( popt$ca ) = bfh; 

CALL TIMF(1 ) ; 

OUTPUT PORT$CA ) = RESET; ENABLE* 

end; 

end; /* NORMAL PREEMT */ 

ELSE DO; /* PREEMT THE MONITOR */ 

/* SFAF.CH VPM FOR ALL ID'S OF OFFH */ 
SEARCHES’!! = 05 

DO WHILE icck$set(9Global$lock,ii9); end; 

DO CPU - O TO ( NP$PPS - i); 

SEAR CF$FND = SFARCH$ST + NR$VPS( CPU ) - 1J 
/* SET ALL I NT$ FLAGS EXCEPT THIS CPU'S */ 
IF PRDS .CPU$NUMBER <> CPU THEN 
HDW$INT$FLAG( C B U ) = TRUE; 

DO IND*X = SFAPCH$ST TO S F A R C H $ EN D *. 

IF VPM ( INDEX ) . VP$ I D = VP$ID THEN 
VPM ( INDEX ). STATE = READY? 

end; /* do */ 

SFARCF$ST = S E A R C H $ S T + MAX$VPS$CPU? 

END? /* ALL MONITOR PROCESS SET TO READY */ 

/* INTFRRUPT THE OTHFfi CPU'S *ND 

RESCHEDULE THIS ONE #/ 



$ I F NOT MCORTEX 

/*** MXTRACF ***** MXTRACF ***** MXTRACE ** 
/*** MXTRACE ***** MXTRACE ***** MXTRACE ** 

CALL OUT$L I NE f 0MSG17 ) J 



'i* v 



MXTRACE * 
MXTRACE * 



$ENDIF 



disable; 

OUTPUT( POFT$C A ) = BOHJ 
CALL TIMF(l); 

OUTPUT^ PORT$C A ) = RESET? 

enable; 

INDEX = PET$VP; 

disable; 

PRDS .L»ST<PUN = INDEX; 

VPM' INDEX ) .STATE = READY; 

CALL VPSCKEDULER; /* NO RETURN */ 
ENDJ /* TTLST 

/* UNLOCK GLOBAL MEMORY */ 

GLOB AL$LOCK = 0; 

R ETU R N » 

END? /* PREEMPT PROCEDURE */ 
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/* ' CREATE$SEQ PROCEDURE BREWER 9-18-84 */ 

/* */ 

/* CREATOR OF INTER PROCESS SEQUENCER PRIMITIVES FOR USER */ 

/* PROGRAMS . CREATES A SPECIFIED SEQUENCER AND INITIAL- */ 
/* I ZES IT TO 0, BY ADDING THE SEQUENCER TO THE END OF THE*/ 
/* SFQUFNCER TABLE. */ 

/* */ 

/* CALLS MADE TO: OUT$LINE OUT$CHAR */ 

/* OUT^HEX */ 

y" ^ ^ 5^ * s|; :;c # if. if. =1- # s£ # # # # # * s£ 5 ;: # # ^ a|-. j;: if j.'t i|; jj: V ^ ^ # / 



CREATE$SEO : PROCEDURE( NAME ) REENTRANT PUBLIC; 
DECLARE NAME BYTE; 



/* ASSERT GLOBAL LOC^ */ 

DO WHILE LOCKS ET 'OGLOBALiLOCK , 119 ) ? END; 

$IF NOT MCORTEX 



/*** MXTRACE 
/*** MXTRACE 



***** MXTRACE 
***** MXTRACE 



***** MXTRACE 
***** MXTRACE 



***** MXTRACE 
***** MXTRACE 




CALL 0UT$LINE(0MSG25) ; 
CALL OUT $HEX( NAME) 5 
CALL OUT$CHAF(CR); 

CALL OUT $CH AR ( LF ) J 

$END IF 



IF /* THE SEQUENCER DOFS NOT ALREADY EXIST, IE */ 
LOCATE$SEQ (NAME) = MOT$FOUND THEN DO; 

/* CREATE THE SEQUENCER ENTRY BY ADDING THE */ 
/* NEW SEQUENCER TO THE END CE THE S EQ$TABLE */ 
SEQ$TA£LE( SEQUENCERS ) .SEQ$NAME = NAME; 

SEQ$T ABLE (SEQUENCERS ) . SEQ4 7 4 LUE = 05 

/* INCREMENT NUMBER OE SEQUENCERS */ 
SEQUENCERS = SEQUENCERS + 1? 

END; /* CREATE THE SEQUENCER *7 
/* RELEASE THE GLOBAL LOCK */ 

GLOBAL$ LOCK = 0; 

return; 

end; /* crfate^seq procedure */ 



/*0678**** 
/* TICKET 
/* 



:Jc # # # # # ## sjc # 5jt :Js 3£ # # # # sjc 

procedure 



3): 3 (< # # jJ; 3 |c y,? ^ s(; # ^ 3^ 3 jc 3;: j$c 3;: v ^ f 

BREWER 8-18-84 */ 

*/ 



/* I NTER-VI FTUAL PROCESSOR SEQUENCER RPIMITIVE FOR USER */ 
/* PROGRAM. SIMILAR TO ’TAKE A NUMBER AND WAIT.’ RETURNS*/ 
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/* PRESENT VA LUE OF SPECIFIED SEQUENCER AND INCREMENTS THE 
/* SEQUENCE?. « POINTER IS PASSED TO PROVIDE A BASE TO A 
/* VARIABLE IN THE CALLING ROUTINF FOR PASSING THE RETURN 
/* VALUE PACK TO THE CALLING ROUTINE. 

/* 



/* CALLS MADE TO: OUT$LINF 

/ 5*? ::c * i'c j'r rfs jfc ^ A s’: A i 1 ; He i'c ;'.c 



5 ^ ^ 



Vf ou V - V* y# 

*0* /p rp ^p ^p ^p v ^p ^p 



*/ 

*/ 

*/ 

*/ 

5| 7 

*/ 

#/ 



TICKET: PROCEDURE( SEO$NAME , RETS $?TR ) REENTRANT PUBLIC; 



DFCLARE 

SEO$N AMF 
SEOTBL$ INDEX 
f ET3 $PT P 
SEO$VALUF$RET 



EYTF. 

BYTE. 

POINTER, 

BASED RETS$PTR WORD; 



/* ASSERT GLOBAL LOCK */ 

DO WHILE LOCKS ET(OGLOBAL$ LOCK, 119) J END; 



$IF NOT MCOPTEX 



/*** MXTRACE ***** MXTRACE ***** MXTRACE 
/*** MXTRACE ***** MXTRACE ***** MXTRACE 



>i! ^ Jr MXTRACE * * * / 
***** MXTRACE ***/ 



CALL 0UTALINE(OMSG24) ; 



$END IE 



/* OBTAIN SEO$N AME INDEX */ 

S EQTBLi I NDEX = LOCATE$SE0( SEQ^NAME ); 

/* OBTAIN SEQUENCER VALUE */ 

SEO$VALUE$RET = SEQ$T ABLE ( SEOTBL$INDEX ).SEO$VALUEJ 
/* INCREMENT SEQUENCER */ 

SEO$TABLE( SFOTBL$INDEX ).SFQ$VALUE = 

SEQ$TABLE ( SEOTBL$ INDEX) . SEQ$ V ALU E + 1 ; 

/* UNLOCK THE GLOBAL LOCK */ 

GLOBAL$LOC K = <* \ 

return; 

end; /* TICKET PROCEDURE */ 



/ ^ 0 7 2 7 ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ 5 ’' ^ ? ‘ c ' >c # # 
/* CPE ATE$PROC PROCEDURE 

/* 



BREWER 8-18-84 



/* THIS PROCEDURE CREATES A PROCESS FOR THE USER AS 
/* SPECIFIED BY THE INPUT PARAMETERS CONTAINED IN A 
/* STRUCTURE IN THE GATE MODULE. THE PARAMETER PASSED 
/* IS A POINTER WHICH POINTS TO THIS STRUCTURE. 

/* INFO CONTAINED IN THIS STRUCTURE IS: PROCESS ID, 



*/ 

*7 

*7 

*/ 

*/ 

*/ 

*/ 

*/ 
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/* PROCESS PRIORITY, THE DESIRED PROC STACK LOCATION, 
/* AND THE PROCESS CODE STAPLIN'} LOCATION WHICH IS 
/* IS TWO ELEMENTS : THE I? REGISTER (OFFSET) AND THE 
/* CS PEG I ST F D (CODE SEGMENT). 

/* 



/* CALLS MADE TO 

/ 3jc ;;c ?;< 5jc :\c 3|c # ;;c 



OUTLINE 

3;: 3;: Jjs 3 (: # 



# 3jc 3jc 3JC 3jC 3jc 3|: 



3)c 3|: # 3;; 3;: 3JOJS # Jjc # # 3^ ^ 



*/ 

*/ 

*/ 

*/ 

*/ 

*/ 



CREATE$PROC : PROCFDURE( PROC$*>TR ) REENTRANT PUBLIC; 



DECLARE 

PROC $PTR POINTER, 

PROC$TABLE BASED PROC$PTR STRUCTURE 



( PFOC $ I D 


BYTE, 


PROC $PR I 


BYTE, 


PROC $S P 


WORD, 


PROC$SS 


WORD, 


PROC$I P 


WORD, 


PROC $CS 


WORD, 


PROC $DS 


WORD, 


PROC$ES 


WORD) ; 



DECLARE 

(PS1, PS2 ) WORD, 

TEMP byte; 



DECLARE PROC$ST 4 CK$PTP POINTER AT(OPSl), 

PROC$STACK EASED PROC$ST»CK$PTR STRUCTURE 



LENGTH (0FEH) 


BYTE , 


RFT$TY PE 


WORD, 


BP 


WORD, 


DI 


WORD, 


SI 


WORD, 


DS 


WORD, 


DX 


WORD , 


CX 


WORD, 


AX 


WORD, 


BX 


WORD, 


ES 


WORD. 


IP 


WORD, 


CS 


WORD, 


EL 


WORD ) 



$ I F NOT MCORTEX 



/*** MXTR p C F ***** MXTRACE ***** MXTPACE ***** 
/*** MXTRACE ***** MXTRACE ***** MXTRACE ***** 



MXTRACE ***/ 
MXTRACE ***/ 



CALL 0UT$LINF(@MSG26) J 



$END IE 
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/* TO S^T UP PROC$ST«CK$PTR */ 
PS1 = PROFITABLE . PROC $SP - 118HJ 
PS2 = PROC$TAELE.PROC$SS; 



PROC$STACK .RET$TYPE = INT$RETURN; 
PROC $ST ACK . EP = PROC$TABLE.PROC$SP; 
PROC $ STACK . DI = 0; 

PROC $STACK . S I = 0? 

P ROC $ST 4 CK . DS = PROC^TARLE.PROC$DS ; 
PROC $ST ACK .DX =0? 



PROC $STACK .CX 
PPOC $ST A CK . AX 
PROC $STACK .BX 
PROC $ST A C K . V S 
PROC $ST A CK . I? 
PROCSSTACK .CS 



0 ; 

0; 

0 ? 

PROFITABLE. PROC$ES; 
PROC$TABLS.PPOC$IPi 
PROC$TARLE.PROC$CS; 



PROC $ST A CK . EL 



200H; /*SET IE FLAG 



(ENABLE INTR)*/ 



/* SET GLOBAL LOCK */ 

DO WHILE LOCKSET(OGLOBAL$LOCK,119) J END? 



IF 



PRDS . I/P SSPFR$ CPU < MAX$VPS$CPU THEN DO; 
TEMP = PHT)S.VPS$PER$CPU + PRDS . VP$ START 5 
V PM ( TEMP ) . VP$ I D = PROFITABLE. PPOC$ID; 

V PM ( TEMP ). STATE = 01? /* READY */ 



V PM ( TEMP 1 .V?$PRIORITY = PROC $T ABLE . PROC$PR I ; 
VPM ( TEMP ).EVC$THPEAD = 255; 

V PM ( TEMP ) .EVC$AW*VALUF = 0J 



V PM { TEMP ) . SP$REG - PROC$TABLE .PROC$SP - 1AH» 
VPM ( TFMP ) . SS^REG = PROC $ TABLE . PROC$SS ; 



PRDS . VPS$PER$CPU = PRDS.VPS$PER$CPU + 1J 
PRDS . VP $END = PRDS.VP$END + i; 

NR5VPS ( PRDS . CPU $ NUMBER ) = 

NR$VPS(PRDS . CPU $ NUMBER ) + 1? 
end; /* DO */ 



/* RELFASF THE GLOBAL LOCK */ 
GLOBAL$LOCK = 0? 

return; 

end; /* create$process */ 



/ * 0 8 3 2 * * * * * * * * * * * * * * * # # * * # * # £ # * ?r * * # ❖ # # * '1' # * # # # # * # # * # * * * # * 3jc * f 



/* 

/*- 

/* 

/* 

/* 

/* 

/* 



S YSTEM$ I 0 



PROCEDURE 



BREWER 8-18-84 



PROCESSES A REQUEST FROM THE ADVANCE PROCEDURE (AND 
OTHERS TO BE DEVELOPED) TO ADVANCE THE VALUE OF AN 
EVENTCOUNT THAT HAS A REMOTE COPY. ALTHOUGH THE 
CURRENT IMPLEMENTATION IS LIMITED TO THE ETHERNET AS 
THE MEDIUM FOR DISTRIBUTED F.VENTCOUNTS , THE PROCEDURE 



*/ 
-*/ 
*/ 
*/ 
*/ 
*/ 
■ f / 
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/* IS WRITTEN TO ALLOW FOR THE EXTENSION TO OTHER DATA */ 
/* COMMUNICATION MEDIA. */ 
/* */ 
/* FUNCTIONALITY: */ 
/* QUEUES UP REQUESTS IN AN ETHERNET hEQUEST BLOCK #/ 
/* (ERB) FOR CONSUMPTION BY THE ETHERNET COMMUNICATION-/ 
/* CONTROLLER BOARD (ECCB) DFVICE HANDLER. */ 
/* */ 



/* CALLS MADE TO: READ 
/* ADVANCE 

/* TICKET 

# ## # 5|C # # ❖ # a^C # # ## # # 5',:# # 5jC 5j: # # # # # # # # ## Jji 5j* # 3$C # 3|C 



*/ 

*/ 

-/ 



SY STEM$ I O : PROCEDURE ( PATH , REQUEST$TYPE , NAME , VALUE , ADDR ) 

PUBLIC reentrant; 



DECLARE 

(PATH, RFQUEST$TYPE, NAME, ERB$I NDEX, INDFX) BYTE, 

(VALUE. ADDR, I, J ) WORD; 



DECLARE 

ERB( ERB$ BLOCKS LENGTH ) 

( COMMAND 
TYPE$NAME 
N AME$V ALUE 
REMOTE$ADDR 

IF PATH = ENET THEN 

do; 

DO CASE request$type; 

do; /* IT'S ETHERNET AND EVENTCOUNT */ 

CALL TICKET ( ERB$WR I TE$ FEQUEST , 01); 

/* I NOW HAS THE VALUE OF TICKET RETURNED */ 
CALL READ(ERBAWRITF, 0 J ) ? 

/* J NOW HAS TH V VALUE OF ERE$WR ITE */ 

DO WHILE (J < I); 

CALL TIME (Id); 

/* 1 MS DEL AY ==> REDUCE BUS CONTENTION #/ 

CALL READ( ERB$WRITE, 0J); 

END; /* DO WHILE */ 

/* WRITE TO V RB , IE IT'S NOT FULL */ 

CALL REA.D( ERB$READ , 0J ) J 

DO WHILE ( (I-J) >= ERB$B LOCK $ LENGTH ) ; 

/* IT'S FULL SO DO A "BUSY WAIT" */ 

CALL TIME (60) J 

/* DELAY ONF PACKET TRANSMISSION TIME 
QUANTUM */ 

CALL READ(ERB$READ, 0J ) ; 



STRUCTURE 

BYTE, 

BYTE, 

WORD, 

WORD) AT (10000H); 
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end; 



/* SLOT OPEN SO WRITE TO ERE */ 

ERB^INDEX = I MOD ERB$BLOCK$ LENGTH? 

EPB (ERB$INDFX) .COMMAND = PEQUEST$ TY PE ? 

ERE ( ERB$I NDEX ) . TYPE$NAMF = NAME? 

ERE (ERB$ INDEX ) . NAME $ VALUE = VALUE? 

ERB ( EPB$ INDEX ) . REMOTE $ADDR = A DDR? 

/* NEED TO ADVANCE THE VALUE OF ERB$WRITE */ 

DO WHILE LOCK$SFT(OGLOBALALOCK , 119)? 

/* ASSERT LOCK */ 

END? 

INDEX = LOCATE^FVC (ERB$WR ITE) ? 

EVC$TBL( INDEX ) .VALUE = EVC$TBL( INDEX) .VALUE + 1? 
GLOBAL$LOCK = 0? /* RELEASE */ 

/* NOTE THAT THIS AVOIDS THE UNNECESSARY OVER- */ 
/* HEAD OE THE ADVANCE PROCEDURE */ 

END? /* DO BLOCK */ 

DO? /* STUB FOR NOW */ 

END? 

END? /* REOUEST$TYPE */ 



END? /* PATH */ 

END? /* S YSTEM$ I 0 */ 



/ *U xn Oi n' V* ^ V' Jw V/ O# sO ^ ^ 

M M V \ z,’* ^ /|4 



/* DEFI N ir $ CLUSTER PROCEDURE 
/* 



BREWER 8-18-84 */ 

*/ 



/* THIS PROCFDUPE IS CALLED ONLY ONE TIME AT EACH CLUSTER . */ 
/* ITS SOLE PURPOSE IS TO DEEINF THE LOC A L$CLUSTER ADDRESS.*/ 
/* THIS PROCEDURE CALL MUST BE THE FIRST CALL IN THE INIT */ 
/* PROCESS BROUGHT UP IN FACH CLUSTER. */ 



/* 

/ # * # # # * V If £ # # # # * * # * i* * V # ❖ # * % # sjc S« * # 



*/ 

:£ ####** ** # £s;« **#### * / 



DEFI NE$CLUSTER : PROCEDURE (CLUSTERED) REENTRANT PUBLIC? 



DECLARF CLUSTER$ ID WORD, 

I BYTE? 

LOC AL$CLUS TEE $ ADDR = CLUSTERED? 

/* FOR NOW OTHER ENTITIES FIELDS ARE UNINITIALIZED */ 

EVC$ TBL( C) . REMOTF$ ADDR =C LUST ER$ ID? 

/* FIRST ENTRY IN TABLF IS A RFSERVED SYSTEM EVENTCOUNT */ 
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end; 



/* D r FI NF$CLUSTER */ 



/ ^ 0 o 4 7 ^ *- * ❖ =:= # »r # * ## ##*##>!**!{: ’r’r** # =;-. ^ * --;: # # * # v s? v # # ^ >;- # v * # *< -r # v # v / 

/* DISTRIBUTION$MAP PROCEDURE BREWER 8-18-84 */ 

/* */ 

/* THIS PROCEDURE ASSIGNS GROUP ADDRESSES TO THE */ 

/* REMOTE^ * DPR FIELD OF THE DISTRIBUTED ENTITY. THIS IS A */ 

/* SYSTEM MANAGEMENT DECISION - THE USER (ALTHOUGH SYSTEM)*/ 

/* PROCESSES DO NOT MAKE CALLS TO THIS PROCEDURE. */ 

/* */ 

# a*:######*# sjc a;:##*##*#* / 



DISTRIBUTION^ MAP: PROCEDURE ( MAP$PTR ) REENTRANT PUBLIC? 



DECLARE 

MAP$PTR POINTFR, 

TBL^INDEX BYTE, 

MAPSTAPLV BASED MAP$PTR STRUCTURE 
( MAP$TYPE . BYTE, 

I D BY TE 

CLUSTFR$ ADDR WORD); 



DO CASE map$table.ma?$type; 

do; /* FVFNTCOUNT TYPE */ 

T BL$ I NDEX = LOCATE$FVC (M AP$TABLE . ID ) » 

EVC$TBL • TBL$I NDEX ) . REMOTF$ ADDR =MAP$T ABLE .CLUST ER$ ADDR J 

end; 



do; 

/* STUB */ 
end; 



end; /* do case */ 

END? /* DISTRIBUTION$MAP */ 



$IF NOT MCOPTEX 

/* CONDITIONAL COMPILATION OF PROCEDURES 
ASSOCIATED WITH *** MXTRACE *** 

/*** MXTRACE ***** MXTRACE ***** MXTRACE 



*/ 

***** MXTRACE ***/ 



/* 09 90**** ******************* ********* 



'i' 'n *1' 'r 'i' 'I' 'i' ”i' 



-p 'i' 'i' 'r 'p 5»* 5»' 'i' 



/* I N $ C F AR PROCEDURE BREWER 8-18-84 

/* 

/* GETS A CHAR FPOM THE SERIAL PORT. CHAR IS ! ! I NOT ! ! ! 
/* ECHOED. THAT IS RFSPONSI PI LTY OF USER IN THIS CASE. 



*/ 

*/ 

*/ 

*/ 

*/ 
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/* INPUT TO SERI 4 1. PORT VIA SEC861 DOWN LOAD PROGRAM MAY */ 
/* NOT BE ACCEPTED. */ 



/* POINTER IS PROVIDED BY USER SO HE CAN BE RETURNED THE 
/* CHARACTER . 

/* 



/* CALLS MADE TO: RECV$C A HR 






*/ 

*/ 

-*/ 

/ 



IN$CRAR : PROCEDURE ( RETiPTR ) REENTRANT PUBLIC I 

DECLARE 

RET^PTR POINTER, 

INCHR BASED RET$ PTR BYTE*, 



disable; 

INCHR = recv$char; 
enable; 



return; 

end; /* I N $ C H A R */ 

/ ^ 1 t) # 3jC # # # 3,- # 3|i # jjc :Jc 3jC 3}c 3}C 3^ ?Jt # 3|C 3^ :|c sjc j'.C 3*C 3^ 3^ 3^ ','fi 3^ 3|C # sjt 3',C 3j? 3jC 3^ 3|C 3^ 3^ 



/* 

/ 






I N $NUM 



PROCEDURE 



BREWER 8-18-34 



*/ 

*/ 

*/ 

*7 

*/ 

*/ 

••7 

*/ 

*/ 

*/ 

*/ 

••7 

*/ 



/* 

/* 

/* 

/* 

/* 

/* 

/# 

/* 

/*- 

/* 



CHAR 

THEY 

EACH 

CHAP 



EROM THE SERIAL PORT, EXAMINES 
ARF IN THE SET 0..F HEX AND FORMS 
VALID HEX DIGIT IS ECHOED TO THE 
ARE IGNORED. NO ALLOWANCES ARE 



GETS TWO ASCII 
THEM TO SEE IF 
A BYTE VALUE. 

CRT. IMPROPER 
MADE FOR WRONG DIGITS. GET IT RIGHT THE FIRST TIME. 

IE YOU ARE INDIRECTLY ACCESSING THE SERIAL PORT VIA 
THE SBC 861 DOWN LOAD PROGRAM FROM THE MDS SYSTEM 
INPUT MAY MOT BE ACCEPTED. A POINTER IS PASSED BY THE 
USER SO THAT HE RETURNED THE CHARACTER. 

CALLS MADE TO: IN$HEX 



y#* %v y# y* y# y# o# O/ y# y# y# y# o# y«> ^ Ow ju %•/ y# y# %V y< Vo y# y^ y* %v y# s 1 # y^ %•# y~» v* y# y# %•# * y* yu o# / 

^ V ^ Op op Op V *r v n' V Op Op op Op rp *p *p «rp #p *p Op #p op Op Op *p Op *p op Op Op *p Op #p Op Op Op Op **p #P Op Op *p #p *p rp Op op *p / 



I N $NUM : PROCEDURE { RETAPTR ) REENTRANT PUBLIC! 

DECLARE 

RET$PTR POINTER, 

NUM BASED RET$PTR BYTE! 



disable; 

NUM = IN$HEX? 

enable; 

return; 

END; /* TN$NUM */ 



/ 3jc 1 0 ^ g Jjc 3{« 3^ 3^ 3{: ^ 3{S 3^ 3^ 3^ 3j: 3{c 3j5 3|c 3^ # 3jc y,S 3^ 3^ 3|« 3|< 3|c s|: Jje 3^ 3* t : # 3*,C ^ # 3|C iJC # 3',S 
/ # 3;C3^ # # 3$: # 3|C 3|C sfc # 3}C # # # # 3jC 3^ 3{C 3fc 3{c 3{C sJa 3|C >jc 3jc 3}c 3fc 3$C 3jC # 3jC 3j: 



Op 5|> Op Op Op 0|C ^p 

^ y f %«# y f y# y* 

Op Op ^ #|% Op #|% 



» *P Op ^p #|^ i 



3|C 3^ 3jc SjC >r 3 ;; SjC 3£ 3jC 3jS 



*/ 

5 '7 
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/* OUT$CH AE PROCEDURE 

/*— 

/* SENDS A BYTE TO THE SERIAL POST 

/* 

/* CALL MADE TO: SEND$CEAR 



BREWER 8-1B-B4 */ 

*/ 

*/ 

*/ 

*/ 



/ *'» »i» *i* »•< v- *** »* • %ju v» ^ »*< *w y< *v *>* »•* %•/ <x> »*# »'» v< v< ^ <ju y# *v «v y* »**• y* »*» *•» «.■» jk< >■< y <* *v »> «.•< *'» o* *•* y» »•* / 

or* *t* *t* *i N "r v ?» • »i' '(* *t* '<■ *>' 'p 'r 'r 't' n > »p «y* t “t <t* 'i - * *t* ^ % *t* t* A' n' *t* *tp t v v S' '(* *t* v ^r* v 'i* *c- S' v S* 'i' 'i* y* ^r» 't' ^r* / 



0UT$ CHAR : PROCEDURE ( CHAR ) REENTRANT PUBLIC! 



DECLARE CHAR BYTE! 
DISABLE? 



CALL SEND$CH AE ( CHAR ) ? 
ENABLE? 

RETURN? 



END? 



/ *^ 1 0 64^ 5t { *r 'r V V v VJi' V ^'r v Vv V 5|? ?*? n? ?r V v 'r W »r J 

/* 0UT$LI NE PROCEDURE BREWER 8-18-84 */ 

/* */ 

/* USING A POINTER TO A BUFFER IT WILL OUTPUT AN ENTIRE */ 
/* L1NF THFU THE SFRIAL POPT UNTIL AN '%' IS ENCOUNTERED */ 
/* OR 60 CHARACTERS IS REACHED— WHICH EVER IS FIRST. CR 'S*/ 
/* AND LF'S CAN BE INCLUDED. */ 

/* */ 

/* CALLS MADE TO: SEND$CHAR */ 

/ o> o# j/ su %*# ^ %*# %'* ^ ju j# Vf j# Vw y# ou %V Vf v> y# vO * k | # %/« j# *j/ j# %v *ju ^v« > 



OUT$ LI NE : ?R0CEDURE( LI NE$PTR ) REENTRANT PUBLIC? 



DECLARE 

LI NE$PTR POINTFR, 

LINE BASED LI NE$PTR (80) BYTE, 

II BYTE! 

DISABLE? 

DO 1 1 = 0 TO 79? 

IF LIME( II ) = THEN GO TO DONE? 

CALL SEND$CHAR ( L I N E ( II ) )? 

END? 

DONE: ENABLE? 

RETURN ? 

END? 



/*1 092 ’S 1 ^ *### Jit#* ###### Sr*#* f 

/* 0UT$NUM PROCEDURE BREWER 8-18-84 */ 

/* 4'/ 

/* OUTPUTS « BYTE VAULE NUMBER THRU THE SERIAL PORT */ 

/* :: V 

/* CALLS MADE TO: OUT$HEX */ 

/ 4? # y,i sjc # ?/. 5j: sj? f* # # 3jc s;< # # # jjt jfcsjs 5 1 ,: ;J< >*: sj? 5 1 ' jJ? >(: >Jc sjc 5 ): # # sjc sjs 3 1 .: Jjs ;Jc # # # :Jc # ;(c s^c sjc ^ # sjs jjs # y' 
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OUTANUM: PROCEDU T5 F( MUM ) REENTRANT PUBLIC; 



DECLARE NUM BYTE: 

disable; 

CALL OUTAHEX ( NUM )? 

enable; 

return; 

end; 



/ 1 1 1 1 ^ ^ ^ *** ^ Sjf# fflf £ ## Sjc # ## # 

/* IN$DNUM PROCEDURE 



V' *'» »V V# *'* V' ^ »•' V' V' *’* ^ **/ »•» %•» *>'* *'» V' V' *'» *'» »*# 
v 'i' t- “f "i' "i- 8r* "r* v V n- n* 'i' ■v nr *i' "i' ■*»' «v «v *r v 



BREWER 8-18-84 



/* 

/* GETS FOUR ASCII FROM SERIAL PORT TO FORM WORD VALUE. 
/* CRITERIA ARE THE SAME AS IN PROCEDURE IN$NUM. 



/* CALLS MADF TO: IN$HFX 

/ * # # 3jc # # * >I< -S : '-r ‘r sjt * * J{e sj: * # * « # * * * # * >|e # £ * tjc * * # # i-f sjt V ^,c ^ 5|: * 







*/ 

*/ 

V/ 

s; 7 
* / 
*/ 
*/ 
*/ 



I N$DNUM: PROCEDURE ( RETAPTR ) REENTRANT PUBLIC; 



DECLARE 

RET$PTR POINTER, 

DNUM BASED RET$PT R WORD, 
(H, L) word; 



disable; 

H = INAPEX; 

H = SHL ( H. 8 ); 
L = IN$FEX; 

DNUM = (H OR L); 

enable; 

return; 

end; 



/*?' j 1 3 7 # # # # # # # # # # # # ?|C # # # ;|c 5 ;? s;t # :;j # # ;',c s;c # ?;c # 5 ;: # * ;;c ?;« i'fi 5,’t # :;c ^ ;Jc # >;c >;c jjt V 

/* OUTADNIJM PROCEDURE BREWER 8-18-84 #/ 

/* — — '7 

/* OUTPUTS A WORD VALUE NUMBER VIA THE SERIAL PORT */ 

: r / 



/»«* 

/ »f - 



/* CALLS MADE TO: OUT$HEX 

f 5’,: >|c 5^ # if sjc >|c sic if s'^ s|c sjc if If if a[r sjx i,t sj; sjc >Jc if sjc ;|c if sjc 5 ^ i|c sjt s|c s|c sjc ;Jc ^c ;|c sjc ;L' sj: *^c :|c sjc s;c sjc s|: :|c :Jc s|: t|c ;|c s'c y' 



*/ 



OUT $DNUM : PROCEDURE ( DNUM ) REENTRANT PUBLIC? 



DECLARE 

DNUM WORD, 

SEND byte; 
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disable; 

SEND = *IGH( DNUM )? 
CALL OUTiHEX ( SEND ); 
SEND = LOW ( DNUM ); 
CALL OUT$ HEX ( SEND ); 

enable; 

return; 

end; 



/ ' ,c 1 1 6 1 ^ ^ ^ 5 ' ; 5,c ^ ^ 5 ' c 5| ' 'r ; ' c # 5 » ; 4 s # 4c 5',c # 2 r 4 : -r 4* 4? 4 s jJ. >J; # 5j; y,: 5 ;; ;[r # 5 ;, jJ: ;',e y,c # sj? / 

/* BECV^CRAR PROCEDURE BREWER 8-18-84 */ 

/* */ 

/* BOTTEM LEVEL PROCEDURE THAT OBTAINS A CHAR FROM THE */ 

/* SERIAL PORT. PARITY BIT IS REMOVED. CHAR IS ! ! MOT ! ! */ 

/* ECHOED. */ 

/ 4* — — — — — — — — — — — — — — — — — — — — — — j 

/* CALLS MADE TO: NONE */ 

/ * * ❖ * * ❖ £ * # # # # s|s # if t- # if ## # »p # if if >r * if # & if * * :(« if $ # 3 ;: # s£ :J' 3je « ;;< a|£ s',; 3i' if 3|: V.t 3,e i; j 

/*** MXTRACE ***** MXTRACE ***** MXTRACE ***** MXTHACE ***/ 
/*** MXTRACE ***** MXTRACE ***** MXTRACE ***** MXTRACE ***/ 



RECV$CHAR : PROCEDURE BYTE REENTRANT PUBLIC; 



DECLARE 

CH? byte; 

/* CHECK PORT STATUS BIT 2 FOR RECEI VE-REP DY SIGNAL */ 
DO WHILE ( INPUT ( ODAH ) AND 02H ) = 0J END; 

CH? = ( I NPUT ( 0D8H ) AND C7FH); 

RETURN CHR; 

end; 



8 - 18-84 



OUTPUTS A BYTE THRU THE SERIAL PORT. THIS IS NOT A 
SERVICE AVAILABLE THRU THE GATEKEEPER BUT IT IS CALL 
BY MANY OF THOSE PROCEDURES. IT WILL STOP SENDING 
(AND EVERYTHING ELSE) IF IT SEES A ~S AT INPUT. ~Q 
WILL RELEASF TH' P PROCEDURE TO CONTINUE. 

THE USER BEWARE!!!!! THIS IS ONLY A DIAGNOSTIC TOOL 
TO FREEZE THE CRT FOR STUDY. RELEASING IT DOESN'T 
ASSURE NORMAL RESUMPTION OF EXECUTION. (YOU MAY FOR 
ALL BOAFDS TO IDLE FOR EXAMPLE.) 

CALLS MADE TO: 



/ 4* 4 £4* :Jc sjc £ j(; ;Jc # 3|c 4; sfc 5jt # ;',c sjc # sjc # # y,c ;Jc sjc 4; # # # # :|c # 5jc # 3j: # :;c 4c £ afc 4* s| ;|c 4c :}c 45 :',c 5;? r*c jH 4? 



***/ 

*/ 

— */ 
*/ 
I’D*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
CE*/ 
*/ 

— */ 
*/ 
4* i’c :|j ! 



SENDiCHAR : PROCEDURE ( CHA R ) REENTRANT PUBLIC J 
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DECLARE (CHAR, INCHR ) BYTE; 

/* CHECK PORT STATUS */ 

I NCHF = ( I NPUT ( 0D8H ) AMD 07FH); 

IF INCHR = 13H THEN 

DO WHILE (INCHR <> 11H)* 

IF ( ( I NPUT ( 0DAH ) AND 02H) <> ?) THEN 
INCHR = ( I N PUT ( 0D8K ) AND 07 FH ) ; 

end; 

DO WHILE ( INPUT ( 0DAH ) AND 01H) = 0? END; 
OUTPUT ( 0DBH ) = CHAR; 

return; 

end; 



/*! 2 1 p***£ 
/* IN$HEX 
/* 



$ n- # Sr 5? * # # # # nr # *r * * ❖ # $ £ £ =!'- * -r 5* if $ * # if. * i'fi i|< V V * *■ * tf >1'- * / 



PROCEDURE 



BREWER 8-18-84 */ 

*/ 



/* GETS 2 HEX CHAR FROM THE SERIAL PORT AND IGNORES ANY- */ 
/* THING ELSE. EACH VALID HEX DIGIT IS ECHOED TO THE */ 
/* SFRIAL PORT. A BYTE VALUE IS FORMED FROM THE TWO HEX */ 
/* CHAR. */ 



/* 

/* CALLS MADE TO 

/ x‘: s!c s'c r!r s!; x’r x'r iir 2!- 



RFCV$CHAF 

*■' »•' J, J/ o.j,. 

•r *1' v *o> V v v 



^ 0- 
’i' v 



\*» .1. ■ 



*/ 

*/ 



I N$HF.X : PROCEDURE BYTE REENTRANT PUBLIC; 



DFCLARF 

ASCII 1 . * ) BYTE DATA ( '0123456789ABCDEF ' ) , 

A S C 1 1 L ( * ) BYTE D AT A ( '0123456789 filH , 62H ,63H , 64H , 65H , 

66H ) , 

(INCHR, HEX NUM , H, L) BYTE, 

FOUND BYTE, 

STOP byte; 

/* GET HIGH p ART OF BYTF */ 

FOUND - 0; 

DO WHILE NOT FOUND; 

/* IF INVALID CHAR IS INPUT, COME BACK HERE */ 

INCHR = BFCV$CHAp; 

H = 0? 

STOP = 05 

/* COMPARF CHAR TO HEX CHAR SET */ 

DO WHILE NOT STOP; 

IF ( I NCHR = ASC II (H ) ) OR (INCHR = ASCIIL(H) ) THEN E05 
STOP = cffh; 

FOUND = 0FFH? 

CALL SEND$CHAR( INCHR ); /* TO ECHO IT */ 

end; 
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flsf do; 
h = h + 1 ; 

IF H = 10H THEN STOP = 0FFH5 

end; /* elsf */ 
end; /* DO WHILR */ 

H = SHL ( H, 4 ) ; 

END; /* DO WHILF */ 

FOUND = 0? 

DO WHILE NOT FOUND? 

INCHR = rrcv$char; 
l = oh; 

STOP = 0 ; 

DO WHILE MOT STOP? 

IF 'INCHR =A SCII (L) ) OR ( I NCHk-ASC 1 1 L • L ) ) THEN DO? 
STOP = 0FFH? 

FOUND = 0FFH? 

CALL SEND$CHAR( INCHR ) 5 

end; 

FI se do; 
l = l + 1 ; 

IF L = 10H THEN STOP = 0FFH ? 

END? /* ELSE */ 

END; /* DO WHILE */ 

END? /* DO WHILE */ 

RETURN ( H OR L); 

END; /* I N $HEX */ 



/ * 1 2 8 0 * * - * * — * - * — — # * * # # =5*' # # * * # * Sr 

/* OUT$HEX PROCEDURE 






sjc ijs jjc *Jc 5|; ijc sj£ >r jjc ^,’i 

BREWER 8-16-84 



*/ 

*/ 



/* */ 

/* TRANSLATES BYTE VALUES TO ASCII CHARACTERS AND OUTPUTS-/ 
/* THEM THRU THE SERIAL PORT */ 



/* 

/* CALLS MADE TC: 

! # # # # 3 *s # # 5 jt 5;: # # # # # # a|: 



SEND$CHAR 

** 3JC ## * * * 



❖ 5*4 5jc & S£ 5p 



/ 

/ 

/ 



OUT$HEX : PROCEDUR E ( B ) REENTRANT PUBLIC? 



DFCLARE B BYTF; 

DFCLARE ASCII(*) BYTF DATA ( '0123456739ABCDEF ' ) ? 



CALL SEND$CHAR (ASCII (SHR(B,4 ) AND 0FH))? 
CALL SFND5CHA R (ASCII ( B AND 0FH) ) ? 

return; 

end; 



/* END CONDITIONAL COMPILATION OF PROCEDURES NEEDED FOR 
MXTRACE 
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$ENDIF 



V 



/ S« S'- S« * >r S'- ❖ Sc ’!• * >;: Sc * S: Sc Sc Sc S« Sc St St S= St S: S' X'- Sc St St S« S= Sc S= S= Sc St sis St * S« Sc Sc St S« Sc Sc St * Sc S'- S'- Sc S‘ ;.' / 

END; /* L2$ MODULE */ 

/ * S* S« S« S« « sjt * * * * S« * * Sc Sc St S'- S«S<S:StSC S'- S< sc sc Sc sc St S< S< St St St St Sc S< St S« St Sc St St St St St St S« S« SC S= S< St St St / 
/ St St St StSt St St St St St St St St St St St Sft sc Sc St S« St St S< S« S< St St S« S< S< Sc St St St S< St St >r St St St St St St St St Sc S< St S« S< S'- St Sc Sc j 
/ St St Sc St St St Sc S< Sc St S St St St St Sc S« St •-!: Sc S-' S< S< sc St Sc St St St St St St Sc Sc St St S< S« St St Sc S« S< St St St sc St sc Sc St St Sc S- sc St / 
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APPENDIX H 



T.FVFT, T MCORTEX SOURCE CODE 

The LEVEL I source code, written in PL/M-86, is contained 
in file LFVFL1.SRC. The SUBMIT utility [Ref. 19] is used to 
compile either MCORTEX or MXTRACE versions of KOPF. The 
MCORTEX version of LEVFL I is compiled by usin^ the SUBMIT 
file L1CMPM.CSD. LEVFL I is one of the relocatable code 
modules shown in the SUBMIT file LNKKM.CSD in Appendix C. 
The SUBMIT file LOCKM.CSD is used to locate the various 
modules to file KORE. After transfer to the multi-user 
CP/M-86 system, the code is saved as KORE. OPS as describee 
in Appendix A). Analogous files are provided to generate 
KORE.TRC. The memory maps created by the linker and locator 
are included at the end of this appendix. 
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* * * >r * # * * * * * * * # * * # # * ^ # * 3(C ^ >[C 3*f 3jC >!*#$#$ 3jS * 3^ 3jc £ 3^ * * 3{S * * * * * # 3* 3jS 3j' * * * * 8jc * * 

* * # ❖ * * ❖ # sjc * * * * '!' * * # * * * ❖ ❖ # * ❖ * tf # ?N * * * * * * * * afic 3 1 ; * 3|c * # * s|s * * * 5^ * * V 3',; * * ^ * # s’,: * 

**# L1CMPM . CSD SUBMIT file *** 

* * ** * * * * * * * * * * * * **** * * * * * ******* * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
********** * * * * * * * * * * * * * * * * * * * ** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 

:F1 : PLMS6 : FI : LFVEL1 . SRC S FT ( MCORTEX ) NOCOND LEFTMARGI N ( 7 ) 

LARGE 

######## * * # * # * # * # # * # 5* * * * * * # *Jc 3^ % 3|C # 3* * * * 3* ^ * 3jS * 3jC * * >1? 3^ s'.i 3*S ^ 3;< # i'{ 3‘,S 5|< 3^ * * * 3> 

* # j; S 3^ * ^ * * S|C 3^ 3jS * * * * * * 3JC * 3|i 3|C * 3* * * 3^C * 3^ 3jC 3*/- 3^ 3jc 3’ 4 C 3jC 3jc 3>*S * * * 3^ * * * 3’.S * * 3* jJS * * 3‘,C * * * * * * * * * 

*** L1CMPT.CSD SUBMIT file *** 

************************ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * >• * 

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * : :• * * * * * * * 

: FI : PLM96 : FI : LEVEL 1 . S RC P FS FT ( MCORTEX ) NOCOND LEF'TMA FG I N ( ? ) 

LARGF 



* * * * * * * # * # # * * * # 5;? ❖ ❖ * * * * ❖ * * * * * ❖ * * # sjc ?Js * * 3 js * * * * * £ 3 |c * 3;.' sji 3;; * ^ ^ * 3;; * * 3;: ;> 3;: 

3 |< j;c ft *##*# 3;? 3 j? ^ 3 ;: 3 JS 3 ^ 3;? * 3 jc 3 ^ 3 jc 3 * * * 3 ^ $ * # 3 ^ 3 ^ 3 ^ S* 3 |; 3 ^ 3 ^ 3 ^: 3 */ 3 ^ 3 ^ 3 ^ 3 * 3 ^ 3 |C 3 ^ ^ 3 ;< 3 ^ 3 *.C 3 ;c 3 ^ J,C 3 j« 3 ^ 3 ,t 3 ,; * * 

*** LNKKM.CSD SUBMIT file *** 

************************************************************ 

* * ** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 

: FI : LI NKP6 :F1 :I,FVEL1 .OBJ, :F1 :LEVEL2 .OBJ , :F1 : SCHED .OBJ ,& 

:F1 : INITK .OBJ , : FI : GLOBAL .OBJ TO :Fl:KOrt£.LNK 

* ********* * * * * * * * ************ * ************ * * * * * * * * * * * * * * * * * * 
* * * * * * * * * * * * * * * ********* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 

#** LNKKT.CSD SUBMIT file *** 

* * ** ****** * ******* * ********** * * * * * * * * * * * * * * ***** * * * * * * * * * * * * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 

: FI : LI NK86 :F1 : LEVEL1 . OBJ , : FI : LE VEL2 . OBJ , : FI : SCHED .OBJ , & 

•FI: INITK. OBJ, : FI : GLOB AI. . 0 PJ TO :F1 : KORE . LMK 



* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** :; * 5;; * * * * 

* * * **************** * * * * * * ******* * * * * * * * * * * * * * * * * * * * * * * * * * * * 

*** LOCKM.CSD SUBMIT file *** 

* 3;< 3;; 3j< * 3jc * * ?:? 3|: 3jc * 3^ 3^ # 3^ # # 3;< # 3* 3j< * * 3 ;c 3jt * S.’S 3* * 3jc SjS SjS 3jS 3^ 3|S 3^ 3jC * 3^ 3^ 3^ 3^ * 3 Js 3’ ^ 3jS 3|S >1 # ^ 3^ 

3js 3js 3jS 3;c 3;? 3J? 3jS 3^ 3JS 3*.; 3jS 3^ 3^ 3;C 3jC 3j: 31:^^^^ 3^ * * * * # 3^ 3^ 3^ 3^ ;|S 3’,t 3',S ;|f 3|= * * s’.J ijc 3^ * 3^ 3^ 3^ 3^ * * ;jc S’.S 3jc jJS 3^ 3^ 3‘,S 3^ 3^ 3^ 

: FI : L0C86 : FI :KORE. LNK ADDRTSSFS (SEGMENTS (& 

STACK ( 0C550H ) ,E. 

I NITMOD_CODF ( 0439OH ) ,E 
GLOBALMODULF, DAT A ( 0F5300H ) ) )& 

SEGS IZE ( STACK (75H) )& 

RESERVE* 0F TO 0B6FFH ) 



****************** * * * * * * * * ** * * * * * * * * * * * * * * ********** * * * * * * * * 
* * * ******* * ******** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
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*** LOCKT.CSD SUBMIT file *** 

* 9: s|; i f s; 5 * $ * # 9c * * * * * * * * * * * * * * * * * * * * * * * * * * * * if * * * 9= * * 9? * * * * * * * * * * * * * 

?;■ y,< * * * * =:-' # v if >;-. 5? 5? 9< * if 9« s;« >;« * 9s if >;« 9;: 9;; 9s 9c 9< 9': if >;: 9= 9« # 9;: 9; 9 £ 9;; 9c 9: >;< 9;< 9s 9: 9= 9= 9c 9: >;c 9.- 9; 9; 9; 9: 9; 9;: 9s 

: FI : L0CR6 :Fl:KORE.LNK A DDRES SES ( SEGMENTS ( S. 

STACK ( 0C5B0E ) ,& 

I N I TMOD_CQDE ( 043S0H ).& 

GLOBALMODULE_DATA ( 0E5300H ) ) )S. 

SEGS IZF ( STACK (75H ) )& 

RESERVE ( 0F TO 0ABFEH) 

9; 9s 9s 9c 9= 9|c 9s 9 s 9c 9c 9- 9-' 9= 9- 9c 9 ; :'f< 9c 9c 9,c 9c 9c 9s 9c 9c 9c 9c 9c 9 ■•? 9< 9-' 9C 9s 9: 9c 9s 9s 9e 9c 9= :'.s 9C 9',-. * 9c 9: 9c 9c 9-" 9 ; 9c 9- 9c 9c 9= 9c 9c 9c 
9c 9« 5? 9: 9= 9c 9c if 9! 9< 9c 9c 9,c 9c 9c 9c 9c 9= 9c 9c 9= 9c 9c -"'9 * 9s 9s 9< 9c 9s 9s 9e 9s 9s 9s 9s 9< 9s 9s 9s 9c 9s 9s 9c 9c 9c 9c 9c 9< 9« 9< 9« 9= 9« 9c 9« 9c 9= 9' 9s 

*** LEVEL1.SRC file #** 

* ?;< 5 ;? * * * * * 5 ;: * * * * * * * * * sj< * * # * # * # * * * * * * * * * * * * *: 3jc * ;;o;c >;r * * 5 ;; * ^ * * * ?;< * * * 

* * * * * * * * ❖ X ‘* 5 ;: * * * * * * * * * * * * * * # * * 5 ;: * * * 5|C V t i >\c * Jjs ;Jc * * * 5|: * s;< * * * * * * * * * * * ;,c * v 



00 07 * * 5 *r 5;? * * * * ❖ * 5^ * * >;< * * * * * * * * * * * * * * * * * * * 3^ * * * ,- * * * * * * * * * * * / 

/ * * * * * * * 3^ >;c * * 5* 3^ ^ >;< 3jc ^ ^ 3,'C * * 3|C >|c ajc * 3;: * * * * * * * * * 3;: * * * * * * * * * * * * 3;; s;< * 3;.' 3(C 3i< * * * / 

/ # # 3;* ^ 3^ 3^ 3;? « ❖ * * * * ❖ * * * * >;< * * * >;< 3V 3^ ^ 3^ 3;^ >;« * 3;< 5 ;c 3^ s;c 5 ;r 3^ 3^ * # 3;; 3;< * * 3;? 3;< v * * * * * * * / 



/* FILE: 
VFPSION: 
PROCEDURES 
DEFINED : 



LEVEL1 .SRC 
BREWER 8-18-84 



RET$ VP 
GFTWOPK 
LOC ATE$SEO 
S A VE$CONTEXT 
MON I TOR iPROC 



RDYTHISVP 
LOC ATE$EVC 
IDLE$PROC 
GFT$SP 



REMARKS : 

(1) WARNING: SEVERAL OF THE LITERAL DECLARATIONS BELOW 
HAVE A SIMILAR MEANING IN OTHER MODULES. THAT MEAN- 
ING IS COMMUNICATED A CFOS S MODULES BOUNDARIES. BE 
CARFFUL WHEN CHANGING THFM . 



(2) CONDITIONAL COMPILATION FACILITIES ARE USED TO 
PRODUCE TWO OS VERSIONS. 'MCOHTFX ’ PROVIDES NO 
DIAGNOSTIC ASSISTANCE, WHEREAS "MXTRACE" PROVIDES 
DISPLAY MFSSAGES ANNOUNCING THE ENTRY INTO VARIOUS 
OS PRIMITIVES. 

9c/ 

/9«9c9c 9c 9«9c 9e 9s 9s 9s 9; 9c 9< 9s 9s 9s 9< if 9s 9c 9s # 9: 9s 9s 9s 9: 9; 9s 9s 9« 9: 9s 9s 9s 9s 9s if 9s 9s 9; ;/ 9s if 9s ;,s if 9s 9: 9; 9s if if if 9s if if 9s / 

LI $MODULE: DO? 

7*0035 * * * * * * * * :’r ^ 3;'. 3|< * * * * * * * * 3j: 3|: * * * * * * * * * * * * * * 3;; 3ji * * * * * * * * * * * * * * / 
7 if. 3;c % # 3^: * # # 3jc 3;c X * 3|; 3|A 3jC 3,'i 3(C 3^ 3^ * * 3^ * * 3jc * * * 3^ 3^ 3j< 3*,C 3* 3,’C 3^ 3’ t C * 3*,< * * # * 5^' * * * * * * * * * * * * * * * / 

/* LOCAL DECLARATIONS */ 

DECLARE 

MAX $C PU LITERALLY '10', 
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MAX$ VPS $ CPU 


LITERALLY 


'10 


MAX$CPU$$$MAX$VPS$C?U 


LITERALLY 


'100 


FALSP 


LITERALLY 


'0 


READY 


LITERALLY 


'1 


RUNNING 


LITERALLY 


'3 


WAITING 


LITERALLY 


'7 


TFUE 


LITERALLY 


'119 


NOT$FOUND 


LITFRALLY 


'235 


PORT $C0 


LITERALLY 


'00C0H 


P0RT$C2 


LITERALLY 


' 0 O C 2 H 


PORT $CE 


LITERALLY 


'00CEH 


PORT^CA. 


LITERALLY 


'00 CAH 


RESET 


LITERALLY 


' 0 


I NT $ RETURN 


LITERALLY 


'77H 



$ I F MCORTEX 



/**** M COR TEX **** 
/#*** MCORTEX **** 
I DLEiSTA CE^SEG 
IDLF$STACK$a*S 
INIT$STACK$SEG 
I N IT $STA CK$A FS 
/**** MCORTEX **** 
/**** mcORTFX **** 



MCORTEX 

MCORTEX 



MCORTEX 

MCORTFX 



***** M CORTEX 

***** mcoetex 






MCORTEX ****/ 
MCORTFX ****/ 
LITERALLY '0C5DH ' , /***#*##*/ 

LITER ALLY '0C5P0H', /##**#*##/ 

LITERALLY '0C65H', /********/ 

LITERALLY '0C 650H ' J /********/ 
***** MCORTEX **** MCORTEX ****/ 
***** MCORTEX **** MCORTEX ****/ 



$ELSE 



/**** MXTRACE **** MXTPACF 
/**** MXTRACE **** MXTRACE 
IDLE$STACK$SEG 
IDLF$STACE$ARS 
I N IT$ STA CK $S EG 
I NIT $STA CfC$ARS 



MXTRACE * * * * 
***** MXTRACE **** 
LITERALLY '0C63H' 
LITERALLY '0C630H' 
LITERALLY '0C6BH' 
LITERALLY '0C6B0H' 



MXTRACE *** 
MXTRACE *** 



MON I TOR $ ST 0 CK iS EG 
MON I TOR $ ST A CK $ ABS 
/**** MXTRACE **** 
MXTRACE **** 



LITERALLY '0C73H', 

LITERALLY '0C730FI'; 

MXTRACE ***** MXTRACE **** MXTRACE 
MXTRACE ***** MXTRACE **** MXTRACE 



*/ 

*/ 






$ENDI F 



/ ^ 0 0 8 6 * * * * 5 - ; # i ‘ : # * # n* ; i J # 5 ;'' >Jc 5j< * # # 5!' # ^ # sjs Sje sje >1? # * sje :\i sje # a|c # V >.*' # 5r '1 


'*/ 


/* 


PROCESSOR DATA 


SEGMENT TABLE 


*/ 


/* 


INFORMATION 


RELEVANT TO THE PARTICULAR PHYSICAL 


*/ 


/* 


D ROOESSOR ON 


VHIC* IT IS RESIDENT. 


*/ 


/* 






*/ 


/* 


C?U$ NUMBER : 


UNIQUE SEQUENTIAL NUMBER ASSIGNED TO 


*/ 


/* 




THIS REAL PROCESSOR. 


*/ 


/* 


VP$STAET : 


VPM INDEX OF THE FIRST VIRTUAL 




/* 




PROCESS ASSIGNED TO THIS REAL CPU. 


*/ 


/* 


V P $ E N D : 


INDEX IN VPM OF LAST VIRTUAL... 


*/ 


/* 


V PS $ PEP $ CPU : 


THE NUMBER OF VP ASSIGNED TO THIS 


*/ 


/* 




REAL CPU. MAX IS 10. 


*/ 


/* 


LAST $RUN : 


VPM INDEX OF THE PROCESS MOST 


*/ 


/* 




RECENTLY SWITCHED FROM RUNNING TO 


*/ 


/* 




EITHER RFADY OR WAITING. 


*/ 


/* 


COUNTER : 


AN ARBITRARY MEASURE OF PERFORMANCE. 


*/ 


/* 




COUNT MADE WHILE IN IDLE STATE. 


*/ 


DECLARF PRDS STRUCTURE 






( CPU $ NUMBE R 


BYT* 1 , 






VP$ST ART 


BYTE, 






VP$ END 


BYTE, 






VPS$PFP$CPU 


BYTE, 






LAST$RUN 


PYTE, 






COUNTER 


WORD) PUBLIC INITIALS, 0,0. 0,0,0) J 





/ * 0 1 1 2 * * * * ^ 'c ❖ # # # >r * ❖ # ❖ ❖ # # * # # ❖ 5 r ## # # # * * # # * # # * # 5* # ^ # # >|; * # * *C # # * * >J> / 

/* GLOBAL DATA BASE DECLARATIONS */ 

/* DECLARED PUBLIC IN PILE 'GLOBAL. SRC' */ 

/* IN MODULE ' G LO 3 AL$ MODULE ' */ 



DECLAFE VPM C M AX$ C PU$ $ $$M A X$ VPS $ CPU ) STRUCTURE 
(VPilD BYTE, 

STATE BYTE, 

VPAP^IOPITY BYTE , 

E VC$ THREAD PYT^, 

EV C$ AW$ V ALUE WOPD, 

SP-REG WOPD, 

SS $R EG WORD) EXTERNAL; 



DECLARE 

CPU^INIT BYTE EXTERNAL, 

HDW$ I NT$ELAG ( MAX$CPU ) BYTE FXTERNAL, 

NR$VPS( MAX$CPU ) EYTE EXTERNAL, 

NR$RPS BYTE EXTERNAL, 

GLOBALiLOCK BYTE EXTERNAL ; 



156 



D T ’CLA p F 



EV r \ ! TS 3YT P EXTERNAL, 



EV C$TPL ^ 100 ) STRUCTURE 
(EVC$N®MF BYTE, 



VALUE 

RFM0TE$ADDR 

TFP.FAD 



WORD , 

WORD, 

BYTF ) EXTERNAL; 



DECLARE 

SEQUENCERS BYTE EXTERNAL, 
SEQAT f BLE( ICC) STRUCTURE 
(SEQ$NAME BYTE, 

SFO^VALUE WORD) EXTERNAL? 



/ * 0 1 4 S * * ~ * *•' * # * * * C * # # *!' £ # * -fi 5r * * * $ * # * >r # & V O- >r Sr -r >!•' Sr Sf Sr S* * S 



■ 'I' *>' V 



/* DECLARATION OF EXTERNAL PROCEDURE REFERENCES 
/* THE FILF AMD MODULE WHERE THEY ARE DEFINED ARE 
/* LISTED. 



5^; ijC j 

*/ 

*/ 

*/ 



I N IT I AL$RROC : PROCEDURE EXTERNAL; END? 

/* IN FILE: ' INITKK.SRC */ 

/* IN MODULE: INIT$MOD */ 

AWAIT: PROCEDURF ( FVC $ I D , AW A IT FD$V ALUE ) EXTERNAL; 
DECLARE FV C$ I B BYTE, AW AITED$ VALUE WORD? 

end; 



VPSCHEDULFR : PROCEDURE EXTERNAL? END? 

/* IN FILE: S CHED . A S M */ 

DECLARE INTVEC LAPEL EXTERNAL? 

/* IN V ILE : SCHED .ASM */ 

DECLARE I NTR$ VECTOR POINTER AT ( 011OH) INITI AL( 0INTV5C ) ? 
/* IN FILE: SCHED. ASM */ 



/ # 0 1 V 1 ^ ^ # '! c 3,'< # ajs 5jc 5^ sjs # # # sjc # r 1 ,: s'r: # j;c ijt # 3)c sjc *js # 3 ^ 3|c 3 ^ 3|c yc >;> 3jc *;« 5^ sjc 3 ^ >',c # i\i / 

/* THES V DIAGNOSTIC MESSAGES MAY EVENTUALLY BE REMOVED. '•-/ 
/* THE UTILITY PROCEDURES, HOWEVER , ARE ALSO USED BY THE */ 
/* MONITOR PFOCESS . THFY SHOULD NOT BE REMOVED. */ 



$1 F NOT MCORTEX 



/###* MXTB ACE ***** MXTRACF ***** 
/**** MXTPACF **** MXTRACF ***** 



MXTRACE **** MXTRACF ****/' 
MXTRACE ** ** MXTRACF ****/ 
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DECLARE 



MSGlf*) BYTE 
MSG1 A ( * ) BYTE 
MSG4 ( ) BYTE 
MS G4 A ( * ) BYT* 
MSG7(*) BYTE 
MSG7A(*) BYTE 
MSG7B ( * ) F YTF 
MSG10 ( * ) BYTE 
MSG1 1 ( * ) BYTE 
MSG1 2 ( * ) BYTB 
MSG20{*) BYTE 
MSG22 ( * ) BYTE 
MSG23 ( * ) BYTE 
MSG24 ( * ) BYTF 



I M I T I 4 L ( 'ENTERING RET$VP ',13,10,'%'), 
INITIAL (' RUNNING5VPSINDEX = % ' ) , 

INITIAL ('ENTERING PDYTHISVP' ,13,10, '% ' ) , 
INITIAL (' SET VP TO READY: VP = %'), 

INITIAL ('ENTERING GET WORK ',13. 10,'%') , 
INITIAL (' SET VP TO FUNNING: V? = %'), 

INITIAL (' SEL*CTED$PER = %'), 

INITIAL ('ENTERING IDLE$VP ',13,10,'%'), 
INITIAL ( 'UPDATE IDLE COUNT ',13,10,'%'), 
INITIAL ('ENTERING KERNEL$I NIT ' ,10, 13, '% ' ) , 
INITIAL ('ENTERING LOC»TE$FVC ',10,13,'%'), 
INITIAL ('ENTERING LOCATESSEO ',10,13,'%'), 
INITIAL (' FOUND' ,10,13, '%') , 

INITIAL (' NOT FOUND', 10, 13,'%'); 



DECLARF 

CR LITERALLY '0DH ' , 

LF LITERALLY 

OUT$ CHAR : PROCEDURE' CHAR ) EXTERNAL; 
DECLARE CHAR RYTD ; 



end; 



OUT$LI NE: PROCEDURE ( LIN F$PTR ) EXTERNAL; 
DECLARE LI NE$PTR POINTS"! 

end; 



OUT$NUM : PROCEDURE( NUM ) EXTERNAL; 
DECLARE NUM BYTE 5 

end; 



0UT5DNUM: PROCEDURE( DNUM ) EXTERNAL; 
DECLAPE DNUM WORD*. 

end; 

OUT$HEX : PROCEDURE(E) ^XT^RNAL; 

DECLARE B P YTF; 

end; 

I N $CHAR : PROCEDURE ( RFT$PTR ) EXTERNAL; 
DECLARE RET$?TR POINTER? 

end; 

I N$DNUM : PROCEDURE ( RET $PTR ) EXTERNAL; 

DECLARE RET$PTR POINTER? 

end; 

I N $NUM : PP.OCFDURE (PETSPTR) EXTERNAL! 
DECLARE RET$PTR POINTER! 

end; 
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/* 



MXT'ACE 



MXTRACE ***** MXTRACE ***# MXTRACE ****/ 



SENDIF 



: s|s jfc y,: # # 5 ^ jjc if sje ;Jc ?;< # if # 


;',c if if if if if if if :;s if if # if 5jc if if if ;;c if if # if if sjt if if j;< if if if if if V- / 


TA & INITIALIAZTION FOR SYSTEM PROCESSES */ 


RE I DL^STA CK 


STRUCTURE 


! LENGTH! 030H) 


WORD, 


RET$TYPE 


WORD , 


BP 


WORD, 


DI 


WORD, 


SI 


WORD , 


DS 


WORD, 


DX 


WORD , 


CX 


WORD, 


AX 


WORD , 


BX 


WORD, 


ES 


WORD, 


START 


POINTFR, /* IP,CS */ 


FL 


WORD) AT! IDLE$STACK$ABS) 



INITIAL! 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 

I NT$RFTURN ,7 AH , 0 , 0 , 0 , 0 ,0 , 0 , 0 , 0 , GI DLE$ PROC , 200H ) ; 
DECLARE INIT^STACK STRUCTURE 



(LENGTH! 030H) 


WO p D , 


RET$TYPE 


WORD , 


B? 


WORD, 


DI 


WORD , 


SI 


WORD, 


DS 


WORD , 


DX 


WORD, 


CX 


WORD , 


AX 


WORD, 


BX 


WOPD, 


ES 


WORD, 


START 


POINTEF 


FL 


WORD) 



/* IP,CS */ 



INITIAL! 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 

INT$RETURN,7«H,0, 0,0,0,0,0,0,0,0INITIAL$PROC,200H ) J 

/* 200H SETS THE IF FLAG */ 



$ I F NOT MCORTEX 
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/**** m XT RACE **** MXTRACE ***** 
/**#* MXTRAC 7 **** M XTRACE ***** 



MX TRACE **** MXTRACE ****/ 
MXTRACE **** MXTRACE **** / 



DECLARE MONITORSSTACE 



( LENGTH( 030H ) 

RET$TYPE 

^P 

DI 

SI 

DS 



STRUCTURE 
WORD , 
WORD, 

WORD , 
WORD, 

WORD , 
WORD, 



DX 

CX 

aX 

PX 



WORD, 
WORD, 
WORD, 
WORD , 



ES 

START 



EL 

INITI AL( 



WORD, 

POINTER, 

WORD) AT (MOM ITOR$STACK$A.ES ) 



0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ,^, 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 
0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,O, 

INT$RETUPN,7AH ,0 , 0 , 0 , o , 0 , 0 , 0 , 0 , 0MON ITOR $PROC , 200H ) 5 




MXTRACE 

MXTPACF 



**** MXTRACE ***** MXTRACE 
**** MXTRACE ***** MXTRACE 



**** MXTRACE 
**** MXTRACE 



V / 

***/ 



SENDIF 



/*0318* 5 ‘' 5 "' ^ # # # ❖ # 5!? j;? ?;c sj: # s|< ?;c # ^ 3 1 ,: >',t # # ;|c 3|t3{: ^ 5 ;; # # 5 ;: z\: sjc 3 ^ v 3|: sV: j‘,c ^ ;J; ?;r 3 ;, / 

/ 5}C # # 3jX y.C 3^ # 3|C 3^ 3jC 3^ # 3V 3^ 3j< # >jc 3',C 3^ 3jC 3^ 3^ 3jC 5;< $ 3^ 3*C 3*,0^ # 3^ Sjc 3*5 3|c sji # 3',; # s£ # 3jt 3j? 3*i 3^ 3jC 3' r 3|C # 3^ ijc ij-* # ;|c 3^ i\: f 

/* PET $ VP PROCEDURE BREWER 8-13-84 */ 

/* */ 

/* USED BY THE SCHEDULER TO FIND OUT WHAT IS THE CURRENT */ 
/* RUNNING PROCESS. IT'S INDEX IN VPM IS RETURNED. */ 

/* */ 

/* CALLS MADE TO: OUT$HEX OUTiCHAR */ 

y # # sj« 3’,c # s|c >;c >;c :Jx Sjc # 3j; 3;« 3|S 3jt # 3^ 3j< Jji 3;: 3^ # # 3*C 3jt 3js 3|C 3^ 3(c 3*C 3{< 3^ jjs 3(; 3^ 3jC 3jc sjc 3{c 3j: ^ 3(x # 3|x 3Js 3jC 3,X 3|: 3jc 3(: 3jt s;c 3lc 3* s’,: y 



R ET$ V P : PROCEDURE BYTE REENTRANT PUBLIC; 
DECLARE RUNNING$VP$INDEX BYTE*, 

$IF NOT MCOFTEX 



/**** MXTRACE 
/**** MXTFACF, 



**** MXTRACE ***** MXTRACE 
**** MXTRACE ***** MXTRACE 




MXTRACE ****/ 
MXTRACE ****/ 



CALL 0UT$LIMF.(PMSG1 ) : 

$END IF • 
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/* SEARCH THE 7 P MAP EOF RUNNING PROCESS INDEX */ 

DO RUNNING$VP$INBEX = PRDS . VP $START TO PRDS.VP$F,ND 
IF VPM( RUNN I NG$ VR$ I NDEX ) .STATE = RUNNING 
TH p N GO TO FOUND? 
end; /* DO */ 

RUNN I NG$ VP$I NDEX = PRDS . LAS T$FUN ; 

FOUND: 

AIF NOT MCORTEX 



/ # ❖❖ # 
/4c#4«4< 



MXTRACE **** MXTRACF ***** MXTRACE **** MXTRACE ****/ 
MXTRACE **** MXTRACE ***** MXTRACE **** MXTRACE ****/ 



CALL OUT$LI NE(PMSGIA); 

CALL CUT$HEX(RUNNINGAVPAINDEX ); 
CALL OUT$CHAR(CR) I 
CALL OUT$CHAR (LF ) ; 



$ENDIF 

RETURN PUNNING$VP$INDFX; 
END? /* RFT$ VP PROCEDURE */ 



/ * 0 3 6 6 * * * * * * # * * * * * # * *4' # 4*4*4^# 3 ;: 5JC # 4< 3jc 3 %' * 4< 4* # 3*,: * 3 ;: * #4^4< 4* >;c * * # 4 : # j;s 4 : sjc / 

/* RDYTHISVP PROCEDURE BREWER 9-18-84 */ 

/* */ 

/* CHANGES A VIRTUAL PROCFSSOR STATE TO READY */ 

/* */ 

/* CALLS MADE TO: OUT$HEX OUT$CHAP */ 

/ # 4* 4= 4= 4* 4' * 4< 4* ❖ 4' 4< 4' * ❖ ❖ 4,' 4: >Jc 4: # # 4* 3jc 4* 4* # 4: 4' 4 s 4* # £ 4= # 4c 4: # * # 4: # * % 4c 4c ^ 3;: 4s 4c 4* 4* 4* #4 4- / 

RDYTHISVP: PROCEDURE REENTRANT PUBLIC; 

$ I F NOT MCORTEX 

/**** MXTRACE **** MXTRACE ***** MXTRACE **** MXTRACE ***'*/ 

/**** MXTRACE **** M X T R A C p ***** MXTRACE **** MXTRACF ****/ 

CALL 0UT$LINE(PMSG4) ; 

$END IF 

PRDS .LAST$RUN = RFT$VP; /* SAVE INDEX */ 

AIF NOT MCORTEX 

/**** MXTRACE **** MXTRACF ***** MXTRACF **** MXTRACE ****/ 

/**** MXTRACE **** MXTRACE ***** MXTRACE **** MXTRACE *'***/ 

CALL 0UT$LINE((?MSG4A) J 
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CALL OUT$HEX(PRDS.LAST$RUN) ; 
CALL OUT$CHAR (CR ) ; 

CALL OUT $ CHAR ( L F ) * 



$ENDIF 



VPM( PRDS .LAST $R UN ) .STATE = R RADY ; 

return; 

END; /* RDYTHIS VP PPOCEDUP.E */ 



n a n a ^ ^ ^ %}+ ^ ^ %i# k*/ \i# %*# %*# «v s*» j# %♦, %♦* %.v 

m A. M £L V V O' O' O' 'i' O' O' O' O' "P ^p O' O'V *i % # P # P O' O' # l' O' ^P o % ^p o' o' O' O' ^P ^P *1' o' *i* # P O' 'p # p ^p O' *i % O' ^P 'p* O' ^p ^P 



/* SAVECONTEXT PROCEDURE 



BREWER S-18-84 



/ 

/ 



/* 4 / 

/* SAVES CURRENT STACK POINTER AND SEGMENT IN VPM */ 

/* ❖ / 

/* CALLS MADE TO: RET$VP */ 



SAVECONTEXT: PROCEDURE ( STACK$PTR , STACK$SEG ) REENTRANT 

public; 

DECLARE ( ST fl CK$PTR , ST ACK$SEG ) WORD; 

IE PRDS . LAST$RUN <> 255 THEN DOJ /* IF ENTRY IS NOT */ 

/* FROM KORE START */ 

VPM ( PRDS .LAST^RUN) .SP$REG = STACK$PTRJ /-SAVE STACK*/ 
VPM ( PHDS .L * ST$RUN ) . SS $R EG = STACK$SEGJ /* STATE */ 
END; 



end; 



7*0426** * * * * * * * * * * * * * * *# # # sjc # # a}e # # # # # # # sJj 5,^ 5^ ^ 5jc s|: i',c jjc *Jc 5 ;: 5 ;: sjs # s;< jjc sj< ^ ^ / 

/* GET$SP PROCEDURE BREWER 8-18-84 */ 

/* */ 

/* R FT URNS STACK POINTER OF CURRENT RUNNING PROCESS AS */ 
/* SAVED IN THE VIRTUAL PROCESSOR MAP */ 

/* */ 

/* CALLS MADE TO: RET$VP • */ 

/ sjc :|r ;Jc >;c sjc # j*r :J: ;;; ^ # :',c # # # :|s # # ;|i jjc Jjc # 5j; sjc sjs # 5 ^ 5 ',: sjs 3|: 5 }: sj; # :Jc :*,< sjc sjs 5*e * sjc s|c # ;Jr ;Jf ijr y 



GET$SP : PROCEDURE WORD REENTRANT PUBLIC; 

DECLARF N BYTE; 

N = RET$VP5 /* GET CURRENT RUNNING VIRTUAL PROCESSOR */ 
RETURN VPM( N) . SP$REGJ /* RETURN NEW VP STACK POINTER */ 



end; 



162 



/* GETWOBK PPOCFDURF 3REWFR 8-1S-84 */ 

/* */ 

/* DETepm I NES THE NEXT ELIGIBLE VIRTUAL PROCESSOR TO RUM */ 



/* 

/* CALLS MADE TO: OUTACMA.e HUTvLI ME OUT$DNJM 

/ i!i 5l; 5 !c * ;!i y.c ilc A 5’; * 2c 2c 2c 2c s!c i'c s’- 2c 2 c 2c s!c 2c 2c 2c 2c i ' x . 2c 2 * 2: * 2c 2c 2c * 5*1 2c i!c ;.c 



GETWORK : PROCEDURE WORD REENTRANT PUBLIC? 

DECLARE (PRI.N.I) BYTE; 
DECLARE SELECTEDADBR WORD? 
DECLARE DISPLAY BYTE; 



$IF NOT MCORTEX 



/ V *»* 5#* 

/ »•/ 

'** '1' '1* 'i' 



MXTRACE **** MXTRACE ***** MXTFACE 
MXTRACE **** MXTPACF ***** MXTRACE 




MXTRACE 
MX TRAC E 



V 5,t 5fi 



/ 



CALL OUT$LI NF (0MSG7 ) J 



$END IF 



PRI = 255? 

DO /* SEARCH VPM FOP ELIGIBLE VIRTUAL PROCESSOR 
TO RUN */ 

I = PRDS . VP$ST APT TO PROS. V?$ END,* 

IF /* THIS VP'S PRIORITY IS HIGHER THAN P.RI */ 
( ( VPM ( I ) . VP$PR I OR ITT <= PRI) AND 
(VPM(I) .STATE = RF»DY)) THEN DO? 

/* SELECT THIS VIRTUAL PROCESSOR */ 

ppi = vpm( i ). vp$ priority; 
n = 1 ; 

end; /* if */ 

end; /* do loop search of vpm */ 

/* SET SELECTED VIRTUAL PROCESSOR */ 

VPM(N). STATE = PUNNING', 

SELECTED$DBR = VPM ( N ) . S S $PFG J 



$IF NOT MCORTEX 



/**** MXTRACE 
/**** MXTRACE 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 



**** MXTRACE ***** MXTPACE **** 
**** MXTR 4 CE ***** MXTRACE **** 
OUT$LINF (OMSG7A ) \ 

OUT$HEX ( N ) ; 

OUT$CH AP ( CP ) ; 

OUT$CHAR ( LF ) J 
0UTiLINE(0MSG7B); 

out$dnum(selected$dbr) ; 

OUT$CHAR (CR ) ; 

OUT$CHAR ( LE ) ; 



MXTRACE ****/ 
MXTRACE ****/ 



AENDIF 
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RETURN SFLFCTED^DRR; 



end; /* GFTWORK PFOCFDUEF */ 



/i r J* O/ ^ «*•# %'/ %*# %•# %** O# %V *** «V %•* %•* %•# ^ %•# O# J/ Ju J# *0 «*# %*# %'/ %•«* %*# %■> %** %•<» %*/ %*/ hO j# O • i 

m K M y *p *p # 4 * *p #p *p ^4' *p *p # ' /,> *p *|' *p -p #p ^p *p v ^ N *p *p #p *p *p /|% #|% ?|' *p v *p *P # i % J i % *p ^p *p *p #,% #p -p /,' /,• *p / 

/* LOG ATE^FV C PROCEDURE BREWER 8-18-84 */ 

/* */ 

/* FUNCTION CALL. RETURNS THF INDEX IN EV ENT COUNT TABLE */ 
/* OF THE EVENT NAME PASSED TO IT. */ 

/* ’ */ 

/* CALLS MADF TO: 0UT$CHAP OUTLINE */ 

/#***# ###*$#$ •^slsslJ^tXSj^Jit^ssIijjcjJts^j^sSc^^c^^ssSs^j.'s^sJs^^sitjJssIs^^^ss.'esits^Jisj^^^y^ sis^ss^^^Jlsv / 



LOCATEiEVC: PROCEDURE ( EVENT$ NAME ) BYTE REENTRANT PUBLIC? 



DECLARE EV ENT$ NAME BYTF ? 

DECLARE ( MATCH ,EVCTBI.$ INDEX) BYTE; 



$ I F NOT MCORTFX 



/**** MXTRACE **** MXTR A CF ***** 
/**** MXTRACE **** MXTRACE ***** 
CALL OUT$LINF(0MSG2C); 



MXTRACE 

MXTRACE 



**** MXTRACE 
**** MXTRACE 



•r ^ / 
>;c3|t5;o;s j 



$ENDIF 



MATCH = FALSE? 

EVCTBL^INDEX = 0 ; 

/* SEARCH DOWN THE EVFMTCOUNT TABLE TO LOCATE THE */ 

/* DESIRFD EVENTCOUNT BY MATCHING THE NAMES */ 

DO WHILE (MATCH = FALSE) AMD (F,VCTBL$ INDEX < EVENTS); 

/* DO WHILE H 4 VE NOT FOUND THF EVENTCOUNT AND HAVE NCI */ 
/* REACHED FND OF THF T 4 BLR */ 

IF EVENT$NAME = EVCiTBL (FVCTBL^ INDEX ). FVC$NAME THEN 
MATCH = TRUE? 

ELSE 

E VCT T5 L$ I NDEX = EV CTBL$ I NPEX + 1 ? 

END? /* WHILE */ 

/* IF HA V^ FOUND THE ^VFNTCOUNT */ 

IE (MATCH = TRUE) THEM DO? 

/* FETURN ITS INDFX IN THE FVC $TEL */ 



$ I F NOT MCORTEX 

/**** MXTRACE **** MXTRACF ***** 
/###-.,* MXTRACE **** MXTPACF ***** 
C ALL 0UT$LI NE ( PMSG23 ) ; 



MXTRACE **** MXTRACE 
MXTRACE **** MXTRACE 



»*. «v / 

'»' 'I' / 

X: >r # / 



$END IF 



RETURN EVCTPL$INDFX; 

end; 

ELSE do; 
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/* RETURN NOT FOUNT p ODE */ 



$IF NOT MC 0 R T EX 



/ *v 'i' 



U XT - 4 CE **** MXTRACF ***** MXTRACE 
MXTRACF **** MXTRACF ***** MXTRACE 
CALI 0UTALINE((?MSG2a) ; 



XXX X 



MXT RACE *** 
MX TRACE *** 



/ 

/ 



$ENDIF 



RETURN NOT$EOUND? 
end; /* ELSE */ 

T^ND; /* LOCATI’$FVC PROCEDURE */ 



/ 5 * : 0 5 7 0 ^ # 5 » c # xx x x x x x x x ## x x x x x x x 
/* LOCATF$SEO PROCEDURE 
/* 



3j< s;« # ?’,c sjc sj: X 5je 5jc # X X X X X 
BREWER 



5|% jJC ?|C )]h 5jC ^ j}% 

8-18-84 



/* FUNCTION CALL TO PETURN THF INDFX OF THE SEOUENCEF 
/* SPECIFIED IM TH’P SFO-TABLF . 

/* CALLS MADE TO: OUT$LINE 



*/ 
* / 
*/ 
*/ 

*/ 

*/ 

*/ 



x X X * X X X X X X X X X X X X X X XXXXXXXXX X X X X ' X X X X- X X X X X X X X X X 'i ? X X X X X XXXXX f 



LOCATE$SEO: PROCEDURE (SFO$NAMF) BYTE REENTRANT PUBLIC? 



DECLARE SEO$ NAME BYTE! 

DECLARE ( MATCH, SEOTBL$INDFX ) BYTE? 

$IF NOT MCORTEX 



/**** MXTFACE **** MXTRACF ***** MXTRACE **** MX TRACE * 
/**'** MXTRACF **** MXTRACF ***** MXTRACF **** MXTRACF * 



*/ 

*/ 



CALL 0UT$LINE(PMSC,22) ? 



$FND I F 



MATCH - FALSE; 

5 EOT BL$ INDEX - 0? 

DO IVHI L* 1 ( MATCH = FALSE) AND ( S EOTBL$ I NDEX < SEOUENCEFS); 
IF SEQ$NAME = SEO$TABL i: ’(SEQTRL$INIFX).SEO$NAMS THEN 
MATCH = TRUE? 

EL S ^ 

* SEOTBLS I NDEX - SEQTBLSINDEX + 1? 

END? /* WHILE */ 

IE (MATCH = TRU?) THEN DO? 



$ I F NOT MCORTEX 



/**** MXTFACE **** MXTRACF ***** MXTR fl CE 
/**** MXTRACE **** MXTRACF ***** MXTRACE 
CALL OUT$LINF,(0MSG23) ; 



x x x x 

X X X 35? 



MXTRACE ****/ 
MXTRACF ****/ 
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$ENDIF 



RETURN' 3F0TBL$ INDEX? 
end; /* IF */ 

ELSE po; 



$IF NOT MCORTEX 



/* * xx 

f •‘i' '!' v 



MXTRACF **** MXTRACE ***** MXTRACE 
MXTRACE **** MXTRACE ***** MXTRACE 
CALL OUT$LI NE ( 0MSG24 ) ; 



**** MXTRACE ****/ 
**** MXTRACE ****/ 



$END I F 



RETURN NOT^OUND; 

end; /* ELSE */ 

VND; /* LOC ATEiSEQ PROCEDURE */ 



lfifi 



/ * ft 5 2 9 * * * * * * * * * ❖ * ❖ * * ** '!'# * * * 3js * * * * sjc * sj: * * :J: # * * * * * * * sjs 3 ;c * * * ;'* ?;. * * * # ^* / 

/ * * * s,*s * -:* * * -'* * £ * ?: • * * * * * * * * * * * * * # * * * * * * * * * 3 ’ ( c * * * * # 3 ;c 3 ;: ;|: 3 ;* * * * * :;- * * * * * * / 

/* SYSTEM PROCESSES */ 

/* */ 



/ * * * * * * * * * * * * * * ;:- * * * * * * * * * * # # •:- * * * * * * * # * * * * * * # # * * * * * * ='. * * * =;= * * / 
/* IDLE PROCESS BREWER 3-13-84 */ 

/* */ 

/* THIS PROCESS IS SCHEDULED IE ALL OTHER PROCESSES IN */ 
/* THE VPM ARE BLOCKED. THE STARTING ADDRESS IS PROVIDED-/ 
/* TO TRE I DLE$ST A CK AND PLACED IN PRDS . I DLE$DER . A */ 

/* CALL TO TFE SCHEDULER IS MADE EVERY 4 MS IN THE */ 

/* EVENT THAT AN ONBOARD PROCESS WAS READIED BY AN */ 

/* OFFBOARD OPERATION (ADVANCE). EVERY 250 ITERATIONS */ 
/* TKF COUNT IS INCREMENTED P Y ONE. THUS, THE COUNT IS */ 

/* INCREMENTED ONCE PER SECOND. THE COUNT IS MAINTAINED *7 
/* IN THF PRDS TABLE AND IS A ROUGH MEASURE ( E SYSTEM */ 

/* PERFORMANCE BY GIVING *N INDICATION OF THE AMOUNT OF */ 

/* TIME SPENT IN THE IDLE PROCESS. */ 



/* */ 

/* CALLS MADE TO: p LM86 PROCEDURE 'TIME ' */ 

/* OUT$LIME */ 



/ * * * 5',: * * * * * * * * * * --Is sjs * V,: * £ 2|: s|c ^ * s;« II; # >;« s;-. :|i >;: if * / 

IDLE$PROC : PROCEDURE REENTRANT PUBLIC; 

DECLARE I BYTE; 



$ I E NOT MCO D TFX 



/ * * ❖ o'- 



MXT ra CE ***** MXTRACF ***** 
MXTRACF **** MXTRACE ***** 
CALL 0UT$LINE(PMSG1PH; 



MXTPACE **** MXTRACE ***-*/ 
MXTRACE **** M? TRACE ****/ 



$END IE 



LOOP: 10 I - 1 TC 250; 

/* 4 MS DELAY */ ‘ 

CALL TI ME ( 10 )? 

DO WHILE LOCK $S FT ' ( a GLOBAL$ LOCK , 119); 
/* ASSERT LOCK */ 

^nd; 

CALL RDYTHISVP; 

CALL VP SCHEDULER J 
END? /* DO I */ 



$ I F NOT MCORTEX 



/*#** MXTRACE **** MXTRACF ***** MXTRACE ***** MXTRACE 
/**** MXTRACE **** MXTRACF ***** MXTRACE **** MXTRACE 
CALL OUT$LINF( OMSG1 1 ) J 



:|c ?,z sjc 3| c J 



$ENDI E 
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PRPS. COUNTER = PRPS. COUNTER 1J 

co to loop; 

FND; /* TDLF$PPOC */ 



/ ^ 0 Q 1 *>"■ ^ ^ 'i' v v 

/* MONITOR PROCESS 
/* 



*r 3r ^ 



* •*>* J# 

* n' 



BREWER 8-18-34 



*/ 

V 

*/ 



/* THE MONITOR PROCESS IS INITIALIZER Pf THE OS LIKE */ 
/* INIT ft NC I RLE . IT H«S THE RESERVED IP OE PEER AND A */ 
/* PRIORITY OE OH. IT IS ALWAYS BLOCKED OR WAITING UNTIL-/ 
/* IT IS PFFEMTED BY THE USEF. */ 



/* 


CALLS M S DE TO: OUT$LIME 


OUT$CHAR 


/* 


OUT$PNUM 


I N $DNUM 


/* 

/it*} 


I N $ N r J M 

: >;t # 3): s;c i\i 3j4 # 3 ;: 3’,s # ^ # 3js 3 ;* 3jt # 3jc y;. # 3jt 3 ^ 3 !: 3 ;; : 


3j: y,i :;c s;; 3 ;: 3 ; . 



*/ 

V 

-/ 



$ I E NOT MCORTEX 



/**** MXTRACF, 
/**#* MXTRACE 
MON I TOR $PROC : 



**** MXTRACE ***** MXTRACE **** 
❖ MXTRACE ***** MXTPACE **** 
PROCEDURE REENTRANT PUBLIC; 



MXTRACE 

MXTRACE 



***❖ / 



DECLARE 

PTR POINTER, 

PTR2 POINTER, 

PTR3 BASED PTP2 POINTER, 

A DDR STRUCTURE (OFFSET WORD, BASE WORD), 

CONTENTS BASED PTR BYTE; 

DECLARE 

( LINECOMPLPTE, L0QR2) BYTE, 

(QUANTITY, COUNT) BYTE, 

(INORR, INDEX, V AL I D'sCMD 1 BYTE; 

LOOP: VALIBACMD = (ft 

CALL OUT$CH#B(CP) 5 
CALL OlJT<CHAR (LE); 

CALL OUT APR aT) ( '); 

DO WHILE NOT VALID$CMD; 

CALL IN^CHAR(OINCPR); 

IE (INCH? = 'D') OP (INCKR = 'S') OP (INCFR = '?/) THEN 
VALIDSCMD = UEFH; 

IE ( I NO HR =64 B ) OR ( I NCHH=65H ) OR ( I NCHR -?3H ) THEN 
V ALID$CMB = OEEH; 

IE VALIPACMD = 0EEH THEN CALL OUT$CHAR< I NCHR ) ; 

END; /* DO WHILE */ 

IE (INCH? = 'P') OP (I NCHR = 64 F) THEN DO; 

/* DISPLAY COMMAND SECTION */ 

CALL IN$PNUM(OAPDR . BASE) ; 

CALL 0HTACHAP( ') ; 
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0 fi L T IN AD\'UM( PADDP .OFFSET ) * 

PTR2 - paddr; 

PTR = ?TP3J 

/* CONTENTS SHOULD NOW ^F S FT */ 

DO WH1LH r INCHROCR ) AND ( I NCHR023H ) ; 

CALL I N $ CF A p ( OI NCHP ) ; 

END; /* DO W U I LE */ 

IF INCH ’ = CR THEN DO I 
CALL OUT$CBAR( '-' ) ; 

C AT L OUT $ NUM ( CONTENTS ) ? 

CALL OUT $ CHAR ( CR ) » 

CALL OUT$CHAF (LF) J 

END; /* IF NORMAL 1 A DDR DISPLAY */ 

IF INCUR = 23H THEN DO; 

COUNT - 0 ; 

CALL OUT$CHAR ('#'); 

CALI. IN$NUM(OOUANTITY ) ; 

DO WHILF QUANTITY > 9\ 

CALL OUT$CH AR (CR) ; 

CALL 0UT$CHAR (LF) ; 

CALL OUT$DNUM( ADDR.RASE); 

CALL OUT $CH AR 

CALL OUT$DNUM (ADDR .OFFSET ) ; 

LI NFCOMPLETE = F A I. S F * 

DO WHILE LI NECOMPLFTE = FALSE; 

CALL OUT $CHAR ( ' ') ; 

CALL OUT$NUM ( CONTFNTS ) ; 

ADDR. OFFSET - ADDR. OFFSET + 1J 
PTR = PTR3; 

OU ENTITY = QUANTITY - 1 ; 

IF (( ADDR. OFFSET AND 000FH)=0) OR 

(QUANTITY = 0) THEM L I NECOMPLET E>= Trill E 
END; /* DO WHILF LINE NOT COMPLETE */ 

END! /* DO WHILE QUANTITY */ 

END; /* IF MULTI * DDR DISPLAY */ 

END; /* DISPLAY COMMAND SFCTION */ 

IF (INCHR='S') OR ( IN CFR=73F ) THEN DO? 

/* SUBSTITUTE COMMAND SECTION */ 

C ALI, IN$DNUM(0ADDR .PASF) J 
CALL OUT^CRAR ( ' i ') i 
C ALL INADNUM(oaddp .OFFSET) : 

CALL OU T $ C ^ a r ( ; 

PTR2 = OADDR; 

PTR = PTP3J 

/* CURRENT CONTFNTS SHOULD NOW BE AVAILAELE */ 
CALL CUT £NUM( CONTENTS ) » 

L00P2 = true; 

DO WHILE L00P2 = TRUE; 

DO WHILE (INCHRO', ')AND(INCHR<>' ') 
AND(INCHROCR); 

CALL IN$CHAR'0INCHR) ; 

end; 

IF ( INCUR = CP) THFN L00P2 = FALSE; 

IF ( INCUR = ' THEN DO; 
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/* SMP THIS ABBR MB BO TO NEXT FOn SJ3 
C 8 LL OUTAGE AR ( C 15 ) ; 

CALI. OUTACHAR ( I,F) ; 

ABB C . OFFSET = ABBR. OFFSET + 1? 

PTE = D TP3; 

CALL OUT AUNUM { ABBR .EASF) ; 

CALL OUTACHAR 

CALI. OUTADNUM( ABDR. OFFSET) ? 

C A I T OUTACHAR ('-'); 

CALL OUTANUM( CONTENTS ) J 
END; /* IF SKIP ' C ’QR NFXT SUB */ 

IF ( INCHR = ' ') TEEN BO? 

CALL OUTACRAR ( ' ')i 
CALI. tnAnumOoontents ) ; 

BO WHILE (lNCHROCR)ANP(lNCHlt< N ', ' ) ; 

CALL IN$CHAF (0INCFR) J 

enb; 

IF v I NCHR = CR) THFN L00P2 = FALSE; 

IF ( I NCHR = ' . ' ) TPM BO? 

CALL OUTACRAR ( ', ') ! 

ABBR. OFFSET = ABBR. OFFSET + 15 
PTR = PTP3 ; 

CALL OUTACHAR ( CR ) 5 
CALL OUTACHAR(LF) ; 

CALL OUTADNUM( ABBR. BASE); 

CALL OUTACHAR ( '•.'); 

CALL OUTADNUM(ADPR .OFFSET) 5 
CALL OUT$CRAP( '-') ; 

CALL OUTANUM ^CONTENTS) ; 

ENB; /* IF CO TO NEXT ADDR */ 

ENB; /* IE CHANCE CONTENTS */ 

INCFR = 'X'J /* REINITIALIZE CMD */ 

END? /* LOOP, CONTINUOUS SUB CMD */ 

END; /* SUBSTITUTE COMM 8 N D SECTION */ 



IF (INCP.-,= 'F') OP (IMCHH=65H) THEN BO 5 

/* find OUT WHICH VPS IS RUNNING 'ME' 
INDEX = P ET$VP; 

/* NOW BLOCK MYSELF */ 

disable; 

PPBS .LASTARUM = INDFX; 

VPM(INBEX ) .STATE = WAITING; 

CALL VPSCHEDULER5 /* NO RETURN */ 



end; /* if */ 

GO TO loop; 

end; /* MONITOR PROCESS */ 

/**** MXTPACE **** MXTRACF ***** MXTPACE **** 
/**#* MXTPACE **** MXTRACF. ***** MXTRACE **** 



*/ 



MXTRACF ****/ 
MXTRACE ****/ 



AENBIE 



4 7 * ###* ##$ 3 ^ -if. f 

^ ^ ^ ^ %•# s*# -*/ \V - T ^ / 

*|% #|% <r,% ^ ^|» «|% ^ #|% *1*. + /JS W|% #1% #|% /|S #|* > a % #| ^|% *|- / 
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/* STARTING POINT OF TFE OPERATING SYSTEM */ 

/* */ 

/* ROUTINE INITIALIZES THE OS AND IS NOT REPEATED. */ 



/ * * * -r * $ * * * * * * * * # 5 * # x * * * * * * # * * * * * # =;= * * >;= * * * * * >:< ■:■ / 

/ * * * * * * * * * * * * # * # * ;* :;c * * # # sjc * # £ 5|« :;: # >|s * * V * * s! 5 ' * * ■'.• ■! -f- '•; * -I- * si- * -fi * ❖ * -r '-!< / 

/* TO INITIALIZE THE PRDS TABLF FOR THIS GPU */ 

DECLARE CPU vPTR POINTER DATA ( PPRDS .CPU$NUMBER ) , 

zz byte; 
disable; 



$ I F NOT MCORTEX 



/**** MXTRACE **** MXTRACE ***** MXTRACE 
/***-* MXTRACE **** MXTR4CF ***** MXTRACE 
CALL OUT AL I NE ( 0MSG1 2 ) J 



i’fi # 5*' 



MXTRACE ** 
MXTRACE ** 



/ 

/ 



$ END IE 



INITIALIZE P P I 
OUTPUT ( PORT vCE) - 
OUTPUT (PORTICO) =■ 
OUTPUT ( P0RT$C2 ) = 



AND PIC */ 

0C0 n t/* PPI - MICROPOLIS + MCORTEX */ 
13EJ /* PIC - ICWl - EDGE TRIGGERED */ 
40H:/* PIC-I CW2-VECT0R TABLE ADDRESS */ 



OUTPUT ( P0RT$C2 ) - 0FH ; /* PIC-ICW4-MCS86 MODE. AUTO EOI */ 
OUTPUT ( P0RT$C2 ) = 0 AEHJ /*PIC-M'SK ALLOWING I N T . 4 & 6 */ 



/* ESTABLISH UNIQUE SEQUENTIAL NUMBER t?OP THIS CPU */ 
/* SET GLOB AL^LOCK */ 

DO WHILE LOr<$SET(OGLOBAL$LOGE, 119) J END; 

PRDS .CPU$NUMBER = CPU^INITJ 
CPU$ IN IT = C PU$ I N IT + 1 ; 

/* 1! FL E a 5 E GLOBAL LOCK */ 

G LOEAL$ LOCK = 0; 



/* SET UP INITIAL START AND END FOR P^OC TABLE */ 
PRDS . VP v ST a^T = 0; 

DO ZZ = 1 TO PRDS .CPUSNUMBER ; 

PRDS .V?$ START - PRDS . VP$ ST A »T + MAX$VPS$CPU? 

end; 



$ I E MCORTPX 



/**** MCORTEX **** MCORTEX ***** 
/#*** MCOFTEX **** ^CORTEX ***** 
PRDS . VP$ FND = PRDS . VP^START + 
PPDS .V?S$PE L '$CPU = 2 ; 

/**** MCORTFX **** MCORTEX ***** 



MCORTEX 

MCORTEX 

i ; 



MCORTFX 



**** MCORTEX ****/ 
**** MCORTEX ****/ 

**** MCORTEX ****/ 



% ELSE 
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/***!;! MXT r ACF **** MXTRACF ***** 



/* 

/* 



PRDS.VPAEND = PRDS .V?$ST ART + 
PHDS .VPSAPFRACPU = 3? 

* * MXTRACF **** MXTRACF ***** 
** MXTI'ACF **** MXTFACF 



M XTR A C F 
?.; 



MXT° ACF 
MXTP ACF 



**** M X TRACE ****/ 

* * * * M X T R A C E * * * * / 
f^XT R ACE **** / 



AFNDIF 



/* INITIALIZE THE VP M«P FOP IPLE »ND IN 1 T PROC */ 
/* AND MONITOR PROCESS */ 

V PM ; PHDS . V P $ S T A R T ) . V ? $ I * = 255 ? 

V PM ( PHDS .V RESTART) . ST ATF = 1 ! 

VPMfPRDS .V^ASTART) .VPARPIORTTY = 0 ; 

VPM'PRPS .VPASTART) .EVC$TWREAD = 255 ? 

VPM( PRDS .V?<ST«RT) . EVC$ »WAV ALU? = 0 ; 

V PM (PROS .V p $ START) . S 0 A RFG = 60 F; 

V PM ^ PRDS . V PAST ART ) .SS $PFO = I N I T$ST ACK$S EC ; 
VPM(?PPS .VP$START+ 1 ).VP$ID = 255 J 

VPM ( PRDS .VP$START+ 1 ). STATE = 1 J 
VPM'PRDS .VPASi’ARr + l ) .VP$PRI 0 RITY = 255 ; 

VPM (? EDS . V 13 AS T *RT + 1 ). EVC $ THREAD = 255 T 
VPM ^ PRDS .VP$ST ART + 1 ) . FVCA AWA VALUE = 0 J 
VPM(PRDS .VPAST»PT+ 1 ). SPARER = 60 H? 

VPMfPRDS .VPASTART + 1 ).SSAREG = I DLEAST A CK $ SFG J 



$ I F MOT MCCRTEX 



/* 

/* 



** MXT^ACF **** MXTP a CF ***** MXTPACF **** MXTRACF 
** MXTRACF **** MXTRACF ***** MXTRACF **** MXTRACF 
VPM f PRDS .V?AST#RT+2).VPAID = 0FEH? 

VPM ( PRDS .VPASTART+2 ) .STATE = ?? 

VPM’ PRDS .VPASTAHT+2) .VPAPRIORITY = 0? 

VPM( PRDS . VP$START+2 ) . EVCATKPEAD = 255: 

VPMfPRDS. VP$START+?).FVO$AWAVALUF = o; 

V PM ( PRDS . V PASTART + 2 ) . S?$REG = *0H 5 

VPM ( PPDS . VPASTART+2 ) . S S$RFG = MQN ITOR AST a CK$SEG ? 



**** / 
**** / 



ftXTHACF * 5: *' * * MXTRACF ***** 
/**#* MXTK fl CF ***** MXTRACF ***** 



MXTR ACF **** 
MXTRACF **** 



MXTRACF 

MXTRACF 



* * 



/ 



/ 



$ END IF 

NRARPS = NR ARPS + 15 
$1? MCOPTEX 



*** M CORTEX 


**** M C0RTFX 




MCORTFX 


**** MCCRTEX 


* # * * j 


*** MCORTFX 


**** MCOPTFX 


##### 


MCOPTFX 


**** MCOFTEX 


**** / 


N H A V PS 'PRDS 


.CPUA NUMBER ) 


= 2 ; 








*** MCORTFX 


**** MCORTFX 


***** 


MCORTFX 




^ ^ / 

*1* 'O 'P / 



AFLSE 



172 



/ # 5r * * M X T R A C E * * * MXTRA CF * * * * * m x T p A C F * * * * M X T K A C E * * v * / 
MP$VPS f PPDS .f p U$NUMBEF ) = 3! 

/###:,< m X T R A C r m 7 t P 6 C F ***** ^ X T p A C E **** •■1XTRAC5 * * * * / 

(^xf?ACE **** N 1 X T E A C E ***** f^XTRA^E 5,t *** MXTRACE ****/ 

$ END IE 

HDW $ 1 NT$FLAG { PRDS . CPU$NUMPER ) = 0 J 

enable; 

PRDS .LA ST$RUN = 255; /* INDICATE START ENTRY TO 

SCHEDULER */ 

CALL VPSCHEDULER; /* NO FETURN * / 

J j;; X"!- -J,; >;< j{« # * '-I' * * :Je * * * * * X' ■£ * # * X: X' * s!c # s* * £ * * * * X< # X= # X: X" X-' sjs * * :1s * * # / 

/ * X,c * X- # j:-- * * # V- * * '■'• * sjc * # # * * * * X- * >X X"- * -X X= X; X; -r # X: ^ # # X= X- X= X- X ; X-' # s? X' * X=X= X-' X- J? * * X< X: / 

END; /* Ll $MODULF */ 

/ is * * * * * # # ?;c ;;; * # * # is 'I ' is is t * is * * * * ?*.' is is * * * * sjs * * * # * # sjs is * * * # * * # * * * # / 
f is is is is is is i< * is # J’.c >;< ?;< 'i^ is is is is # it is is is is * i< is is is is * is is is * * * * * * V' 5;c ?;c * * * * * * V* is is is is 'S is / 
/ ^ 5;< 5j: * * is is 5r 5r 3^ is is it is is is ^ is is * is is is is it * ❖ is * HiritisiSiSiSiSiSit is * * * * * is * is is * it is is * * * * / 
***** MCOR'TEX MCORTEX MCORTEX ***** 



I SIS -I I MCS-S6 LINKER, Vl.l, INVOKED BY: 

: FI : LINK80 : FI rLEV^Ll .OP J , :E1 :I.EVEL2 .OBJ , :E1 :SCHED .OBJ , & 
:F1 : 1 N I TK . OBJ , :E1 :GLOB AL . OBJ TO : FI : KORE . LNK 
LINK MAP FOR : FI : KORE . LNK ( LIMODULF ) 

LOGICAL SEGMENTS INCLUDED: 

LENGTH ADDRESS SEGMENT CLASS 



03D3H LlMODULE_COD^ CODE 

0008E Ll^ODULE DATA DATA 

004CH STACK " STACK 

0000F MEMORY MEMORY 

09C4H L2MPDULE_C0DE CODE 

0000H L2M0DULE_DA.TA DATA 

C000P ??S F G 

0097F SCHEDULER 

0 0 1 A H — IN ITMCD_CODE CODE 

0001H INI TMOD_D ATA D fl T A 

0000H GLOB ALMODULE_C CODE 

-ODE 

0737H GLOB A LMO DUT E_D D fi TA 

-ATA 



INPUT MODULES INCLUDED: 

: FI : LFV ELI . OB J ( Ll MODULE) 

: FI : LEV EL2 . OB J I L2MODULE) 
:Fl:SCHED.OBJ ( SCHED ) 

: FI : INITK .OBJ ( I NITMOD) 

: FI : GLOBAL . OB J (GLOB ALMODULE) 



173 



ISIS-II MfS-°6 LOOATFR, VI. 1 INVOKED BY: 
:Fl:L0C86 : FI : FOFE. LNF ADDRESSES ( SEGMENTS (& 
STACK (UC560H) ,k, 

I N ITMOD_COPE ( 04390H ) ,5. 

GLOB»LMODGLE_D«T« (0E530FF) ) ) S. 

SFGSIZF ( STACK (75W) )£ 

RESE?.VE(0K TO 0B6EEF 'I 

WARNING 56: S T G^NT IN RFSFRVED SPACE 

SEGMENT: (NO NA^E ) 

WARNING 56: SEGMENT IN PPSFRVED SPACE 

SEGMENT: I NITMOD_COD T 

SYM30L TABLE OF MODULE LIMOTULE 
PE AD FFOM EILF : FI : HOPE. LNK 
WRITTEN TO FI L v tFltFORF 



BASE 


OFFSET 


TYPE 


SYMBOL 


BASE 


OFFSET 


TYPE 


SYMBOL 


0 C49II 


0008F 


PUB 


PRDS 


0B70H 


0380H 


PUB 


IDLFPROC 


0B70H 


0302H 


PUB 


LOCATPSEO 


0B70H 


0284 H 


PUB 


LCCATEEVC 


0B70F 


0203 H 


°UB 


GETWOBE 


0B70H 


^lESH 


PUB 


GETSP 


0B70H 


01 A EF 


PUP 


SAVFCOMTEXT 


0B70H 


0185H 


PUB 


RDYTHISVP 


0B70H 


0 1 3 A H 


PUP 


PET VP 


0BADH 


0977H 


PJB 


DISTRI- 














BUT 1 0 MM A P 


0BADH 


0953H 


PUB 


DFFINFCLUSTPR 


0? A DH 


0814F 


PUB 


SYSTEMIC 


0BADH 


06AFH 


PUB 


CREATPPROC 


0BADH 


064EH 


P’JE 


TICKET 


0BADH 


05FBF 


PUB 


CREATES PQ 


0PADH 


03F3P 


PUE 


PREEMPT 


0BADH 


025 AF 


PUB 


A D V A N C F 


OB A DH 


01 A A H 


PUB 


AWAIT 


0EADH 


0159F 


PUP 


READ 


OBA DH 


00E3H 


PUB 


CREATE FVC 


0BA.DK 


0036H 


PQP 


GATEKEEPER 


0C4BH 


0O00H 


PUB 


VPSCHEDULFR 


0C4EH 


0033*1 


PUB 


INTVFC 


0439H 


000 2H 


PUE 


INITIALPROC 


E530H 


025AH 


PUB 


VPM 


E530H 


065BH 


PUB 


S SOTABLE 


F530H 


065 AH 


PUB 


SFOUENCEPS 


E530H 


0659F 


PUB 


C PU I N I T 


E530 u 


0002F 


PUP 


EVCTBL 


E530H 


0000H 


PUP 


LOCAL- 
C LUSTER AD t\R 


E530H 


0658H 


PUP 


EVENTS 


E530H 


064LH 


PUB 


HDWINTFLAG 


E530H 


0644H 


PUP 


NR V PS 


E530H 


0643H 


PUE 


NRRPS 


E530H 


064 2 F 


PUP 


GLOBA LLOCK 
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MEMORY MAP 0^ MODULE L 1M0UULE 
READ ER 0 M FILE :F1 :FORE. INK 
WRITTEN TO FI :F1:KCRE 



MODULE ST*ET ‘DURESS PAF‘GF‘PH = ^BVOH OFFSET - 0030F 
SEGMENT M a P 



START 


STOP 


LENGTH 


ALIGN 


NAME 


CLASS 


001 1 OH 


O0113F 


0004H 


4 


( ABSOLUTE) 




043P0H 


043A9H 


00 1 A H 


w 


I NIT MOD CODE 


COD F 


OB700H 


OP AD2F 


03D3H 


w 


LI MODULE CODE 


CODE 


0BAD4H 


0 0 4Q7TT 


09O4F 


w 


L2M0DUI.E" CODE 


CODE 


0C499H 


0C498F 


0000F 


w 


GLOBALMODULE C 
-OD* 1 


CODE 


0C498H 


0O49FF 


0O08H 


w 


LI MODULE DATA 


DATA. 


0C4A0H 


0C4AOH 


0000F 


tf 


l?module“data 


DA FA 


OC4A0H 


PC 4 A OH 


0001 F 


w 


INITMOD DATA 


DAT® 


0C4B0H 


0C4P0H 


0000H 


G 


??SEG 




0C4B0H 


0C546K 


0097F 


Or 


SCHEDULER 




0C550H 


0C^C4" 


0075 u 


V 


STACK 


STACK 


0C5D0H 


0CO49F 


007AH 


A 


'ABSOLUTE ) 




0C650H 


OC609F 


007 «H 


4 


( absolute ) 




100O0H 


10O77F 


0078 w 


A 


( ABSOLUTE ) 




E5300H 


E5A96H 


0787H 


W 


GLOBALMODULE D 
-ATA 


DATA 


E5A88H 


E5 AP8F 


0000H 


w 


MEMORY 


MEMORY 
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MXTRACE 



MXT 15 ACE 



MXTRACE 



IS IS— 1 1 MCS-85 LI MKEP , VI. 1. INVOKED PY: 

: El : LINK°6 :F1 :LEVm .OBJ , :F1 ‘LEVEL2 .OBJ . : FI : SCHED . OP J , & 
:F1 : INITK.OV . :F1 :GLOP 4 L.ObJ TC : F3 : KORE. LNK 
LINK M 4 P FOR : V 1 : KOBE . LNK ( L1MODTJLE ) 

LOGICAL SEGMENTS INCLUDED: 

LENGTH ADDPFSS SEGMENT CLASS 



08C6B LlMODULF_CODF CODE 

0133H L1MPPULE_D 4 T 4 D 4 T 4 

0062H STACK STACK 

000 OH MEMORY MEMORY 

PDF FH L2M0DULE CODE CODE 

00 r 5H L2M0DULE_D 4 T A DAT 4 

000 PE ??SEG 

0P97H SCHEDULE 0 

001 AH I NITMOD_CODE CODE 

000 1H I NlTMOD_PATA DATA 

PP0PH GLOB ALMODTILF_C CODE. 

-ODE 

0787H GLO?ALMODULF_' n DATA 

-AT 4 



INPUT MODULES INCLUDED: 

:F1 : LEVEL1 . OB J ( LI MODULE ) 

: El : LEV ^L2 . OBJ ( L2M0DULE) 

: El • SCHED .OBJ (SCPED ) 

: FI : INITK.OBJ (INITMOD) 

: FI : GLOBAL .OB J ( GLOB A LMOPULF ) 
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ISIS-IJ MCS-06 LOCATOR, VI. 1 INVOKED V X : 
•FlrLOCRP : El : KOR? . LNK ADDRESSES ( SEGMENTS (& 
STACK (0C5B0P ) ,K 
INITMOD_CODE(043P{?h) ,5, 

OLOBALMODULF_D®T s ( 0R5300H ) ) )& 

SEGS TZE ( STA CK (75H ) )& 

RESERVE ( OF TO OABFER) 

WARNING 56: S FOMENT IN PESERVFD SPACE 

SEGMENT: (NO NAME) 

WARNING 56: SEGMENT IN RFSERVED SPACE 

SEGMENT: I NITMOD__CODE 

SYMEOI TAPLE OF MODULF L1MODULF 
READ FROM FILE :F1 :KORE.LNK 
WRITTEN TO FILF :Fl:KORE 



BASF 


OFFS RT 


TYP^ 


SYMBOI 


BASE 


OFFSET 


TYPE 


SYMEOL 


0C2CH 


0006H 


PUR 


PRDS 


0AC0H 


0505H 


PUB 


MON I TOrP^OC 


0AC0K 


049 CH 


PUB 


IPLEPROC 


0A.C0F 


03FDH 


PUB 


LOG ATESEO 


0AC0E 


035EH 


PUB 


LOCATEEVC 


0AC0H 


0293H 


PUB 


GET WORK 


0 A C 0 H 


026 BE 


PUB 


GFTSP 


0»C0H 


0236H 


RUB 


SAVECONTEXT 


0 A C 0 II 


01 DEE 


PUB 


HDYTHISVP 


0AC0H 


0165H 


PUB 


RET V P 


0B4CE 


0DD1H 


PUB 


OUTHEX 


0B4CH 


0CCCH 


PUB 


INHEX 


0B4CE 


0C7CF 


PU 10 


SEN PC HA R 


0B4CH 


0C59H 


PUB 


RFC V CHAR 


0B4CK 


0C2DH 


PUR 


OUTDNUM 


0B4CH 


0BF4H 


PUB 


INDNUM 


0F4CH 


0BDCH 


PUP 


OUTNUM 


0B4CH 


0B8DH 


PUB 


OUTLINE 


0B4CE 


0B75H 


PUR 


OUTCHAR 


0B4CH 


0B5AH 


PUB 


INNUM 


0B4CH 


0B3FH 


PUB 


INCHAP 


0B4CK 


0AFEH 


PUB 


DISTRI- 














BUl'IONMAP 


OB4CH 


0ACAH 


PUB 


DEF I NEC LUSTER 


0P4CH 


098BH 


PUS 


SYSTEMIC 


0E4CH 


0B1BH 


PUR 


CREAT EPROC 


0P4CH 


07AFH 


PUE 


TICKET 


0B4CH 


0729E 


D UB 


createseq 


0B4CE 


0510H 


PUB 


PREEMPT 


OB4CH 


036 CP 


PUT? 


ADVANCE 


0B4CH 


02B1H 


PUB 


AWAIT 


0B4CF 


023DH 


PUB 


READ 


0B4CH 


01 A 4 H 


PUB 


CEEATSEVC 


0B4CH 


0068F 


PUB 


GATEKEEPER 


0C4FH 


0000H 


PUB 


VPSCHEDULEH 


0C4VF 


0033H 


RIF 0 


INTVEC 


0439H 


000 2H 


PUB 


IN IT I ALPROC 


E530H 


025 A F 


PUR 


VRM 


E530H 


065BH 


PUB 


SFOTABLF 


E530E 


065AF 


PUP 


SFOUFNCERS 


r 530H 


0659 w 


PUB 


CPU I NIT 


E530H 


00O2 H 


PUR 


X 'VCTPL 


F530H 


0000H 


PU S 


LOCAL- 
CLUSTER ADDt, 


E530H 


0658F 


PUB 


EVENTS 


P 530H 


064.EH 


RUE 


EDW I NT FLAG 


E530K 


0644H 


PUB 


NR VPS 


E530H 


0643H 


PUB 


NRRPS 


E530E 


0642E 


PUB 


GLOBA T LOCK 
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VFMOFY MAP O 7 MODULE L l y OPULE 
HEAD FROM FILE :F1:K0RF.LFK 
WRITTEN TO FI L 7 :F1:K0RE 

MODULE ST ' 7 T I 'DDPFSS PARAGPAPH = ^ACOH OFFSET = 0030H 
SEGMENT MAP 



start 


S T0 D 


LENGTH 


«LIGN 


M ft f-lP 


CL ft SS 


00110H 


00113H 


0004F 


A 


' APSOLUTE ) 




04390H 


043A9F 


001 AF 


W 


INITMOD CODE 


COD 7 


0AC00H 


0P4C 5 CT 


08C5H 


W 


LI. MODULE CODE 


CODE 


0B4C6H 


0C2C4H 


0DFFP 


w 


L2M0PULE CODE 


CODE 


0C2C6H 


0C2C6F 


0000F 


w 


GLOB ALMODULE C 
-ODE 


CODE 


0C2C6H 


OCSE'F 


0133H 


w 


LI MODULE DATA 


DAT * 


0C3E AR 


0C4DFF 


00E5H 


w 


L7M0DULE D*T* 


D A T a 


0C4F0H 


■0C4 7 0H 


0001 n 


inf 


INITMOD DATA 


DATA 


0C4F0H 


0C4F0F 


0000 F 


G 


? ? S E G 




0C4E0E 


0C5P6F 


0097H 


G 


SCHEDULER 




0C5E-0H 


?. ceziv 


0075F 


W 


STACK 


STACK 


0C630H 


0CPA9K 


007AR 


A 


' ABSOLUTE ) 




r 'C6B0K 


0 072 PH 


007* H 


A 


( ABSOLUTE ) 




0C730F 


0C7A9H 


007 A F 


A 


' AESOLUTE) 




10000H 


1 0077 H 


007«F 


A 


'ABSOLUTE ) 




E3300H 


E5A36H 


17 7 87 H 


V 


GLOB ALMODULE D 

-ft T ft 


DATA 


E5A83H 


E5A93H 


0000 H 


w 


MEMORY 


iMEMCR 



1VP 



APPENDIX I 



SCHEDULER f> INTERRUPT HANDLER SOURCE CODE 
The ASM8P rode in file SCHED.ASK is part of the LEVEL 
I module. Details oertaining to assembler invocation may be 
found in [Ref. 201 and [Fef. 21]. This module is linked into 
file KORE.LNK and its memory map is included in th^ map for 
KOPE. 



179 



t * 000 ? * * * * * * * * * * ❖ * * * * ;Jc * * :|c '’: * * ;J; * * # * * * # ;’t s*c # # * 5;; :|c ?;« # # :, * * * ? ( s # # * tf * * * * 

J* SCHEDULE P ASM FILE B hEWER 8-18-84 * 

?* THE FOLLOW IMG AR r THE EXTERNAL PLM36 PROCEDURES CALLED 
I* BY THIS NODULE . * 



EXTRM S A VECONTEXT : F AR 
EXTRN GETS? : FAR 
EXTPN GETWOFK : FA R 
EXTRN RD YTHI SVP : FAR 
EXTRN PRDS :BYTE 
EXTRN HDWI NTFLAG :BYTE 
EXTRN GLOBALLOCK -.BYTE 



SCHEDULER SEGMENT 
PUBLIC VPS CHEDULER 
PUBLIC INTVEC 

VPSCHEDULER PROC FAR 



ASSUME CS : SCHEDULER 
ASSUME DS : NOTHING 
ASSUME SS : NOTHING 
ASSUME ES : NOTHING 



J ENTRY POINT FOR A CALL TO SCHEDULER 
CLI 

PUSH DS 
MOV CX.0F 

5SWAP VIRTUAL PROCESSORS. THIS IS DONE BY SAVING THE 
•STACK BASE POINTER AND THE RETURN TYPE FLAG ON THE 
•STACK, AND BY SAVING THE STACK SEGMENT AMD STACK 
JPOINTFR IK T U E VIRTUAL PROCESSOR MAP. 



INTJOIN: PUSH B? 
PUSH CX 
MOV AX , S P 
PUSH AX 
PUSH SS 

CALL SAVECONTEXT 
CALL GET WORK 
PUSH AX - 
CALL GETSP 
POP SS 
MOV SP.AX 



;s*ve ''cuprent" STACK BASE 
;save 'current' 1RET_IND flag 

;set UP 3AVE$CONTEXT parameters 
;set UP SAVE$CONTEXT parameters 

;get new stack segment 
;tempory save of stack segment 

; GET NEW STACK POINTER 
; INSTALL NEW STACK SEGMENT 
; INSTALL NEW STACK POINTER 



tSWAP VIRTUAL PROCESSOR CONTEXT COMPLETE AT THIS POINT 
;mow OPERATING in NEWLY SELECTED PROCESS STACK 
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POP cx 
POP BP 



;get ihet_ind flag 

; INSTALL NEW STACK BASE 



I CHECK FOP RETURN TYPE. NORMAL OR INTERRUPT 

CM? C X, 7?H 
JZ INTRET 

NOKMJPET: POP PS 

; UNLOCK GLOBAL$LOCK 
MOV AX.SEG GLOBALLOCK 
MOV ES , AX 
MOV ES : GLOBALLOCK , 0 
STI 



VPSCIIEDU LER FUDP 



• %** ^ ^ 
j *1* ♦§** *y ^ #|** rj% #|^ /j* rj^ ^ /,i #| - ^ # 



s[c ?;< $ ijt # # j|s ij; 5^ # :;c # sjs 5?c s|c jjc # # £ j(s # # sjc afc # ajc # s'; 5*,: # # # # # a£ s£ # # s£ # # :J; sjc ^ sfc s*s :<; ?;; # 5 ;; ^ v # V ^ 

* INTERRUPT HANDLER * 



I NTERRUPT_HANDLER PROC NFAR 

ASSUME CS : SCHEDULER 
ASSUME DS: NOTHING 
ASSUME SS : NOTHI NG 
ASSUME ES : NOTHING 



INTV EC: 


CLI 






PUSH 


ES 


; SAVE NEEDED 


REGs TO TEST INTERRUPT F 


PUSH 


BX 






PUSH 


AX 






PUSH 


CX 






C ALI- 


HARDWA 


-E_INT_FLAG 




MOV 


AL,P> 






XCHG 


A L ,FS 


: HDW I NTFLA G [BX] 


CMP 


AL.77H 


• 

t 


IS I NT FLAG ON ? 


JZ 


PUSH REST RFGS ; 


IV 'YES' SAVE REST REGs 


POP 


CX 


♦ 

* 


IE 'NOT' RESUME PREVIOUS 


POP 


AX 


• 

1 


EXECUTION POINT 


POP 


BX 






POP 


ES 






STI 








I RET 








PUSH REST REGS 


: PUSH. DX I 


FLAG WAS ON SC NEED 


PUSH 


DS 


• 

1 


RE-SECHEDULE * 


PUSH 


SI 
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PUSH DI 

MOV A X , S FG GLCBALLOCK 
MOV ES , ! X 

CK: MOV AT, ,119 J LOCK GLOBAL LOCK 

LOCK XCHG FS : GLOBAL LOCK ,AL 
TEST AL.AL 
JNZ CK 

CALL RBYTHISVP 

MOV CX.77H ? JUMP TO SCHEDULER 

JMP I NT JO I N 



IN TRET: POP DI 
POP SI 
POP DS 
POP DX 
POP CX 



; RETURN FOR 
5 PROCESS WHICH 
; FAD PREVIOUSLY 
; BEEN INTERRUPTED 



; UNLOCK GLOBAL$LOCK 



MOV AX.SEG GLOBALLOCK 

MOV ES, AX 

MOV ES tGLOEALLOCK ,0 

POP AX 

POP BX 

POP ES 

STI 

I RET 



INTERRUPT HANDLER FNDP 



*j» *•» *•» •*/ »•/ Jj 

# 5|c $ :Jc # >',t # # 



j# yu j# j# 



jiu y# ^ Jj yj y^ %># y# yj ^ y# 

# jfcjjc 5js sjojc # #s;< 3jc # # sjt # # # s*c # # # # # # 



ij: sjs # ;|c # jfc # j 1 ,; 

5jc Sjc ?|c # Jfc ijj # jjf SjC >Jc 5jt 



HARDWARE INTERRUPT FLAG 



HARDWARE I NT FLAG PROC NEAR 



ASSUME CS : SCHEDULER 
ASSUME D?: NOTHING 
ASSUME SS : NOTHING 



ASSUME 
HD W FLAG: 



ES : NOTHING 
MOV f X , S FG 



PRBS 



MOV 


FS, AX 




MOV 


BX ,0H 




MOV 


CL , ES : PRBS [BXl 


;ge ,p C d U # 


MOV 


CH , 0 


; RETURN IN EX 


MOV 


BX , CX 




MOV 


AX.SEG HDWI NTFLAG 


;SFT UP HDW$INT$FLAG 


MOV 


ES, AX 


? SEGMENT 


RET 




J RETURN IN ES REG 



HA RDWARE_I NT FLAG FNDP 

SCHEDULER ENDS 

END 



1B2 



APPENDIX J 



GLOBAL DATA BASE AND INITIAL PROCESS CODE 
Two files are contained in this appendix: GLOBAL. SRC AND 

INITK.SRC. They are separately compiled with the LARGE 
attribute. They are linked into the file: KORE.LNK. They are 
represented in the memory map for KOBE presented at the end 
of Appendix F. INITK will be overwritten by an 
initialization module on each real processor. 
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/ * * * * * * * # 'r # # * * * * 5;: # * * # 5;; * * * * * ij: # * 5',; # s;t * * # :;; ?;: * * * * ;;: # ?Jc * * * * * * ;,; * * * * * * ^ / 
/ * 2^ * * :;: * * :J; v :|c v # :|c :J: * # * j;? SJ: * * # * * * * # * ?:? s>: # * # # # # # 5;; * :,'; * * # * 5;: v # * * * * * # :J; ;,; # / 

/ * 0 2 09* 515 5:5 * * * * * * * * * * * 5 '.s * 5 ;: * * * * & 3 ;: * * * * * * * * 5 ,: * 5 ;? * * * * ;,: * i,; * * * * j,c * * * * * * t 

/* FI LE : GLOP Al'. S EC 

VERSION: BREWER 3-19-94 

PROCEDURES 

DEFINED: NONE 



REMARKS -.THIS MODULE CONTAINS DECLARATIONS FOR ALL THE 
GLOBAL DAT 4 THAT RFSIDFS IN SHADED COMMON 
MEMORY. IT'S LOCATED THERE EY THE LOCATE COM- 
MAND AND BY SPECIFYING THAT THE 
GLOB AL$MODULE_D AT 4 SEGMENT BE LOCATED AT SOME 
APSOLUTE 4 DDRESS. 

*/ 

/ * * * * * if * if * * * * * * if if if if if if if is if if if * * * * * * * * * * >f * if i, if if if if * * * * * * * if if if * * * * / 



GLOB AL$MODULE • DO; 

! if >f if if ifififi;ififififififiiififififiiif*.if * is if is s f if if if if is if if if if is is if if is if if * if is if if if is if is if j 
/if if if if if if if if is if if i : if * if if if 5;-. if if 5;; -.Jr tf if if if * if if >;t if j;« if if if is if if if if ;;s if if if if if is if if if / 

/* THE FOLLOWING TFP^E' LITERAL DECLARATIONS ARE ALSO */ 

/* GIVEN IN THE LEV ELI & LEVFL2 MODULES OF THE OPERATING */ 
/* SYSTEM. A CHANGE HE^E WOULD HAVE TO BE REFLECTED IN */ 
/* THOSE MODULES ALSO. */ 

DECLARE 

M AX $ CPU LITERALLY '10', 

MAX$VPS$CPU LITERALLY '10', 

MAX$CPU$$$$MAX$V?S$CPU LITERALLY '100'; 

DFCL ARE 

GLOE AL$LOCK BYTE PUBLIC INITIAL(0); 

/* THIS SHOULD REELECT THE MAX$CPU ABOVE */ 

DECLARE 

NR $RPS BYTE PUBLIC INITIAL(O). 

NR$ VPS ( MAX$CPU ) BYTE D U?LIC 

INITIAL ( 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ); 

DECLARE HDW$T NTtELAG (MAXiCPU ) BYTE PUBLIC; 



DECLARE EVENTS BYTE PUBLIC INITIAL(l); 
DECLAPE LOCAL$CLUSTER$ADDR WORD PUBLIC? 



DECLARE EVC $TBL ( 10O ) STRUCTURE 
( EVC $N AME BYTE, 

VALUE WORD, 

REMOTE$ A DDR WORD, 
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THREAD 



BYTE ) PUBLIC 

INITIAL! FFEH , ? , OFF FFH .2 5b ) ; 
/# E VC "fe" is resfrved for THE OP SYS #/ 



DECLARE CPU$I NIT BYTE PUBLIC INITIAL(0); 

DECLARF SEQUENCERS BYTE PUBLIC INITIAL(0); 

DECLARE SFQ^T ABLE ( 1O0 ) STRUCTURE 
(SEO$NAME BYTE, 

S EO$VALUE WORD) PUBLIC; 

DECLARE V?M( MAX$ CPU$$ A$ M ® 7$ VPS $ CPU ) STRUCTURE 



(V?<ID 


BYTE, 


V P$ ST ATE 


BYTE, 


V ?$PRI ORITY 


BYTE, 


fvcathrfad 


BYTE, 


EVC$AW$ VALUE 


WORD, 


S P$REG 


WORD, 


SSAREG 


WORD) 


END; /* MODULE */ 




;Js # # # # £ 
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/ i'f *•- V; o* ^ v# *•# %<# %•# o# y# 4# %y %•# y# %*# y# ou a# *o %*# %i# y^ y- %i# «i# y> s<^ %*- y# %*# *•# «> «v y« **# v# y^ «># y/ / 

/ y« % *« % 'i* +t % *1* < 7 |* *| % ^ *§* #|^ #,- *!■** ^ #,% #|% 7 |% ^| + % *|* #(* >p #y* /p ^|* #p 3 p 3 p #p Jj- / 



/* 

/*- 

/* 

/* 

/* 

/* 

/*** 

/* 

/>: £ 

/* 

/* 

/ #r * 

/*- 

/* 

/** 



I M I T K 



MODULE 



BREWER 8-13-84 



*/ 
-*/ 
51 V 
*/ 
*/ 
’V 
*/ 
*/ 
’V 
*/ 
*/ 
*/ 
- : V 
*/ 
**/ 



THE CODE SEGMENT OF TH] 
BY THE CS FOR THE USER 
EXECUTABLE IN IT'S OWN 
NOT PROVIDE AN INITIAL 
BLOCK ITSELF, AND IDLE 



S MODULE IS WHAT RESERVES SPACE 
INITIAL PROCESS . THIS IS 
FIGHT. THUS IF THE USER DOES 
PROCESS THIS ONE WILL EXECUTE, 
THE CPU. THE ADDRESS OF THE 



INITIAL CODF SEGMENT IS PROVIDED TO LEV ELI AND IT IS 
REFLECTED IN THE D LM LOCATE COMMAND. THE ADDRESSES 
PROVIDED MUST AGREE. THIS PROCESS HAS THE HIGHFST 
PRIORITY AND WILL ALWAYS BE SCHEDULED FIRST BY THE 
SCHEDULE, . 



CALLS MADE TO: AWAIT 

* V- # ii' ❖ * # * t - * s;c sjs ^ ^ # # # s[t j{« i[c # # # sf: ^ # jJ; 

I N I T$MOD : V OJ 






/*** 
/❖ v* 

/* 

/* 

/* 

/* 

/* 

/* 

/*❖# 

AWAI 



MX TRACE ***** MXTRACE ***** 
MX TRACE ***** MXTRACE ***** 
DECLA IE 

MSG13( * ) BYTE INI?IAL(10, 

OUT$LINE : PROCEDURE' PTR ) 
DECLARE PTR POINTER? 
END? 

MXTRACE ***** MXTRACE ***** 
MXTRACE ***** MXTRACE ***** 
T: PPOCEDU p E ( NAME, VALUF ) 



MXTRACE 

MXTRACE 



*i* <t* V * 
»V *'» »' 

* 1 ^ *Y* •'I s 'I s * 



MXTRACE 

MXTRACE 



ENTERING INITIAL PROC 
13,10, '%'); 

FXTERNAL? 






MXTRACE 
MXTRACE ***** 
EXTERNAL? 



MXTRACE 

MXTRACE 



5 j» Jj* S|% j 
V vV j 

:ss 



#jc sjs 5{i 



DECLARE NAME BYTF , VALUE WORD? 



END? 

IN ITI AL$PPOC : PROCEDURE PUBLIC? 



/* 

/* 

/* 

/* 

/* 



DECLARE I BYTE? 

AFTER INITIALIZATION THIS PROCESS 
ITSELF TO ALLOW THE NEWLY CPE AT FD 
TO EE SCHEDULED. 

THIS AREA SHOULD BE WRITTEN OVER 
PROCEDURE MODULE. 

/*** MXTRACE ***** MXTRACE ***** 

/*** MXTRACE ***** MXTRACE ***** 

/* CALL OUTALINE ( 0MSG13 ) ? 

/*** MXTRACE ***** MXTRACF ***** 

/*** MXTRACE ***** MXTRACE ***** 

CALL AWAITf 0FEH, 1)? 

END? /* IN ITI ALA PROC */ 

END? /* INITAMOD */ 



BLOCKS 

PROCESSES 

BY USER IN IT 



*/ 

*/ 

*/ 

*/ 

*/ 



MXTRACE 




MXTRACE 


y/ 


MXTRACE 


J, *•* ^ ,1, 


MXTRACE 


/ 


MXTRACE 




MXTRACE 


### / 


MXTRACE 


:|c ;jc :|c s': 


MXTRACE 


^ 5 C 5 1 C / 



1P6 



APPENDIX K 



N 13010 DEVICE DFIVER »ND PACKET PROCESSOR SOURCE CODE 

This code consists of PL/I-S6 modules and 8086 assembly 
language modules. PL/I-86 is primarily an applications 
programming language, rather than a systems development 
langua.ee. As such, it does not have the language features 
to gain access to the 8086 processor or MULTIBUS hardware. 
In situations where it is necessary to access hardware- 
dependent components, RASM86 [Ref. 18] modules are called. 
These assembly language routines are located in file 
ASMR0UT.AS6 (assembly language routines), and are linked 
with the PL/I-S6 modules. 

As described in detail in Chapter IV, the Driver is a 
MCORTEX system process with a dedicated real processor. Its 
linking conventions and use of MCORTEX primitives are 
identical to any user process. The notable exception is the 
use of its initialization module to define the cluster 
address, create seauenrers, create even tcoun t s , ard 
distribute the eventcounts. 

The Driver also reads a file called ADDRESS.DAT to 
determine its own physical Ethernet address and addresses to 
load into its multicast (or group) address table. Note the 
type of data in ADDRESS.DAT must be bit string for 
addresses, and fixed binary for the number of group 
addresses. 
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The SYSINIT1.PLI file is the initialization module for 



Cluster 1 and SYSINIT2.PLI is the initialization module for 
Cluster 2. Thpse files and ADDRESS. TAT are the only system 
files that must he changed when new MCORTEX processes are 
added, causing a change ir eventcount distrihutivity. 
MCORTEX processes may he readily ported in executable image 
form from one cluster to another. The eventcount 
distribution changes only reauire a change in the Driver 
initialization modules and the cluster ADDRESS .DAT files. 
The amount of recompilation and linking is kept to the 
absolute minimum with this schema. 

The contents of SYSDE'P.PLI (Appendix E), ADDRESS.DAT, and 
the Driver initialization modules reflect the current system 
configuration. This is the demonstrat ion process described 
in Appendix v . 

Due to thesis format reauirement s , the structure of the 
source code is slightly altered, i.e., PL/I statements are 
not necessarily compilable as illustrated. 
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>;c * % 3j: # ^ 3j? ^ * * 3j; 3jc ;',: sjs >Jc ijc 3{c 3*s 3* * 3 ;? 3* 3 ^ s;c # ?:? * # 3 ;: ^ # # s;c 3£ 3 * * 3* ( C 3 ;; 3(c i;: ;;, ;;; 1 ;: # s;x :,: * 3|c 3 ;: *c 3;c 3;c 3|c 

* # ^ 3 J? 3j< 3jt £ 3j; 3 ;: sji sjc * 3 ;:^# 3l: * * sjs 1; j*c sjc * ❖ 3 ;' 3l< * s<r * ^ * # 5^ # 3 ^ * * # 3^ * # 3 ;: sjt * v * * s{s 3,? :): sjs * 3 ^ 3 * 3;c 3jc * 3 ;; 

*** Cluster 1 A DP D ESS .PAT file *** 

* 5p * * # X * V -.;: * * 5,-. * * v- '-!- * sjs * * X * X $$*$#$ * * XXXX X if * * if if * * * * * * * * * * * XXX * * '-r * X 

1. 

'000PM W' b, '00000001 'b, 

'00000000 ' b , '00000001 'b 

* * * * if if if if if * if if : : * X x if if if X * if if if * if if if * * * if * * X * * '.;: * * s|: * if if * * sjs •.. * * * * * ;;-. * * X * * * 
if XX if if X X X if if if if if XXXXXXXXXX X X X X # * * XXXX XX X * X X X X X X X X X X X X X X X X X X X X X X 

xxx SYS IN IT1.PL I file *** 

X if X X X -f X * X X X X X *1' * X X * X X X * X X X X if X X if X X if X x X X X X X X X X * X “= X # X X if * >; : X X * 5’,; x 



sysinitl: proc options (main); 
%include 'sysd ef . pi i ' ; 
%replace 

EVC TYPE ' by '00'b45 



/* main */ 



call define cluster ('300l'b4); 



/* must be called 
prior to creating 
eve's */ 



/ >>, 

/ ^1' 


X USER 


* 3;: 3* 3?C ! 








call 


create 


eve 


( T P ACK 


IN) ; 




call 


create 


_ev c 


(TRACK 


OUT) ; 




call 


create 


JVC 


(MISSILE ORDER 


in >; 


call 


create 


_ev c 


(MTSSILE_ORPER 


_out) ; 


/ 'r v o' 


SYSTEM 


***/ 









call 


c rea 


t 0 


_ev c 


( ERB 


READ) J 


call 


area 


t e 


_ ev c 


f EPB 


WRITE) ; 


ca 1 1 


c rea 


te 


seq 


( ere' 


~WP I TE_R E0UEST ) J 


/* distri 


b. 


map 


calli 


ed after eventcounts 


been c 


re. 


a ted 


*/ 





have 



call distribution_map ( EV C_TY?E , TRACK_IN , '0003'b4 ) ; 

/* local and remote cony of TRACK._IN needed */ 
call d i st rl but i on_ma p 'EVC_TYPE, MISS I LE_ORDEE_OUT , 

' 0003 ' b4 ) ; 

call create_proc ('fc'b4, 'R0'b4, 

'0950 ' b4 , '0P00 ' b4 , ' 005f ' b4 , 
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'0439'h4, '080O 'b4 , '^B00'b4); 

call await ('fe'b4, '01'b4); 

end sysiniti; 

* 5r # >r ❖ # # s* * * V * # * * * * * * * # * s* * * * * :* * * * 5;: 3* *3*3* * * * 5|C * ;* 3* 3* s* 3,: 3* 5;: 3* 5;; 3;: # 3* 3| ; ;|c 3* 3;: 

:;• # *5* ##>* 3* 3*3* 3* 3* * * s* 3* 3^ * * 3* * 3;: 3*3!: 3* 3* 3* 3* 3* s* 3* 3* s* 3* 3* * 3* 3* 3* 3|: :* 3* 3* 3* 3* 3* 3* ;* 3* 3* 3* 3j? 3* 3* s* 3 * 3*' 3* 3* 3;: 

*** Cluster 2 ADDRESS.DAT file *** 

if <: il-' * * if is # <t # # * *: # if sjc a(s * rtf ajc sf: # # # if sf % is # sjt # * £ if if }}: # * y if # if sf if # >;: * # * :;: if if if £ >.: if 



1 , 

'000 00000 ' b , '00000010 'b, 

'00000000 'b, '00000010 'b 

* * * * If if if if if if if if if if if if if * if if if if if * * * * if if if if * * * * * # * * * * * * * * * if if if if * * if if if if * * * * 
-:< if V * if is if i- if if is if if if if if i- if if if if if if if if -f -f if if * * if * if if if * # >i ; if -f * >f is is if if if if if if if if if if if if if if 

*** SYSINIT2.PLI file *** 

if if if s? if if if if if :|C if :',5 -V * if if * if if if if if if is if * * * * if if is if if if if * if if if if if if if if if if if * * if s,c * s;c sj : if if if 

sysinit2: proc options (main); 

^include 'sysdef . pi 1 ' ; 

^replace 

EVC. TYPE by '00'b4J 

/* main */ 

call def ine_clus ter ('0002'b4)J /* must be called 

prior to creatine 



eve s 



is/ 



/if is is if USER if if is if/ 



ca 


11 


create. 


eve 


(T^ACK IN); 




ca 


11 


create. 


eve 


(TRACK OUT); 




ca 


n 


crea te] 


_evc 


(MISSILE ORDER 


in) ; 


ca 


11 


create 


eve 


(MISSILE. .ORDER 


_cut ) ; 


/* 


5|' 5 t : 


SYSTEM 


if if is/ 






ca 


11 


create_ 


eve 


(ERB READ); 




ca 


11 


rreate_ 


eve 


(ERB WPITE); 




ca 


11 


create 


sea 


( ERP WRITE REQUEST); 



190 



/* distrib. map called after eventcounts nave 
been created */ 

call d istribut iou_ma d ( EVC_T Y PE ,TR ACK_OUT , '0003 'b4 ) ; 

/* local and remote copy of TRACK_IN needed */ 
call distribution _ r n a p (EVC_T V PE, Ml SSI LE_0RDER_I N , 

'0003 'b4 ) ; 

/* local and remote copy of MI SS ILE_OPDEf _ I N needed */ 
call create_proc ('fc'b4, '80 'b4, 

'0950'b4, '0800'b4, '0C5 f'b4, 
'0439'b4, '0800'b4, '0800'b4)5 

call await ('fe'b4, 'P00i'b4); 



end sysinit2; 



*\z 5;? sjc $ 3;: sjc s;c sj: y,c s;* 3j; y,c # # 3^ jjc 3 jc # sjc 3 jc :;p 5;: ^ # 3;? 35c 3 |: 3^ 3^ 3^ 3;? 3;? 3 |c 3 |c 3;: 3;; 3 jc 5^ s;c 3 ;t 3 jt ; 



* V/ o# v# ** - •.*<- 

* *1* 



3ji 3;? 3;: V 3|: 3p 3;? 3|C 3j« >;? 3’,< 3|« 3): 3^C jjc 3^ 3^ 3j< 3*,? # 3|C ## # 3;< 3*,'. 3^ 3jC 3^ i\i 3j« 3j: 3^ # 3jC 3,^ # 3|i 3^ ,'JC 3^ >JC ?J« 3^ 3^ 3^ # 3jC 3^ 3^ 3): 3jC # 3^ SjC 3jc 3’,: 3ji 

*** N 13010 . DCL file *** 



^replace 



/* I/O port addresses 

These values are specific to the use of the INTERLAN 
N 1 301 0 MULTIBUS to ETHERNET interface board. Any change 
to the I/O port address of '00b0' hex (done so with a DIP 
switch) will reauire a change to these addresses to 
reflect that change. 

*/ 



command_register 


hy 


'b0 ' b4 , 


command _status_register 


by 


'bl 'b4. 


transmit _data_register 


by 


'b?'b4, 


inter rupt_status_reg 


by 


'b5'h4, 


inter rupt_erable_regist°r 


by 


'b8'b4, 


h igh_ byte_ connt_reg 


by 


'be 'b4. 


1 ow_by t e_c oun t _r eg 


by 


'bd 'b4 , 



/* end of I/O port addresses * / 



/* Interrupt enable status register values 
disable_ni3010_interrupts 
ni3010_intrpts_disabled 
receive_block_available 
t ransrni t dma_d one 
receive dma done . 



by 


'00 


'b4, 


by 


'00 


'b4. 


by 


'04 


>4, 


by 


'06 


b4 , 


by 


'07 


'b4. 



1S1 



end register values */ 



/* 



/* Command 'Function Codes */ 



module^ i nterface_loopbaok 


by 


'01 


'b4. 


interna l_loophack 


hy 


'02 


' b4 , 


clear_looDback 


by 


'03 


'b4, 


go_of f 1 i ne 


hy 


'08 


'b4, 


eo_onl i ne 


by 


'09 


'b4, 


onboard_diagnos tic 


by 


'0a 


'b4. 


clr_insert_source 


by 


'0e 


'b4, 


load_transmit_data 


by 


'28 


'b4, 


1 oai_and_send 


by 


'29 


'b4, 


load_group_addresses 


by 


'2a 


'b4. 


rese t 


by 


'3f 


' b4 ; 


end Command Function Codes 




*/ 





5{5 3^5 jjc Jp 5p 3jC ip »p 3p 3(5 i[» i(* 3p 3p )p 3{i »J( ip 3p Jp 3}t ip ip Jp Jp Jp ij» ip 3,5 jjc 3(? 5p 3(5 )p ip ip 3(5 3{5 i ( * 3(5 ip 3(5 ip )p Ip ip ip 5,5 5,5 5(5 5,5 5p 5,5 5,5 5,5 ip ij> 3( . 

5*, 5 3(5 3(53(5 3(5 3(5 5j5 3(5 5j5 5)5 5j5 5,*5 i',5 i' i(5 3(5 5j5 5j5 3(5 3(5 ijc 3(5 3(5 i(t 3(5 3(5 3(5 5*5 3(5 i(5 3(5 5(5 j|5 3(5 3(5 3(5 3(5 jfc 3(5 3(5 >|5 3(5 3(5 3(5 3(5 3(5 3;; ;,*< 3(5 3(5 3(5 3(5 Sjs 5(5 3(5 i(5 3(5 3(5 3(5 

*** SYS DEV. PL I file *** 

3(5 S{5 3(' # 3(5 3*5 # 3*5 5^ 3,-' # 3(c 3j5 3(5 # 3$C £ 3(5 # 3(5 jJC^5 3^ 3(? 3(5 3(5 3(5 3^ 3^ 3$5 3 ! ,5 3^ 3^ 3^ 3^ # 3(5 3(5 3(5 3(5 3’,5 5,*5 3(5 3(5 3 (5 3(5 3(5 3(5 3(5 3(5 3(5 3(5 3(5 # 3(5 i(5 i£: 



sysdev: procedure? 



/* Date: 1 SEPTEMBER 1984 

Programmer: David J. BREWER 

Module Function: To serve as the Ethernet Communication 

Controller Board (NI3010) device 
handler. This process is scheduled 
under MCORTEX and consumes Ethernet 
Peauests Packets (ERP) generated hy 
the S Y S T EM $ 1 0 routine in LEVEL2 . SRC . 

It also processes any inbound packets 
hy analyzing the packet contents and 
making the aporopriate MCORTEX calls. 



*/ 



^replace 



e vc__type 


by 


'00'b4, 


erb_block 


_1 en 


by 20, 


e rb_bl ock 


_len_ml 


by 19, 


infinity 


by 


32767? 



^include ' sysdef . pi i ' ? 



19 ? 



ro ^ ro ro 



DFCLARE 



1 erb ( 0 : erb_blo ck_ len_ml ) based (block ptr), 

2 command bit '8), 

2 type_name bit (8), 

2 name_value bit (16), 

2 remote addr bit (16); 



DECLARE 

1 



transmi t_data_block based (xmit_ptr), 

2 dest,ination_add ress_a 
bit (8) , 

2 d es t i na t i on_add res s_b 
bit ( 8 ) , 

2 destination_address_c 
bi t (8) , 

2 dest.inatior_address_d 
bit (8), 

2 des tinat i on_address_e 
bit (8) , 

2 destination_address_f 
bit (8) , 

2 s ource_add res s_a 
bit (8) , 

2 souroe_ad d ress_b 
bit (8) , 

2 source_ad dress_c 
bit (9), 

2 source_address_d 
bit (8 ) , 

2 source_address_e 
bit (8 ) , 

2 source_address_f 
bit (3) , 

2 tyue_field_a 
bit (8) , 

2 type_field_b 
bit (8), 

2 data (46) bit (8). 



1 receive_data_block based (rcv_ptr). 



f rame_s tatus 
rull byte 
f rane_leneth_l sb 
frame_ length_ms b 



bit (8), 
bit (8) , 
bit (3) , 
bit (8) , 
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2 


destir, at ion _address_ 


a 


bit 


(8) 


2 


destination_address_ 


b 


bi t 


(3) 


2 


destination_address_ 


c 


bi t 


(8) 


2 


destinati on_address_ 


d 


bi t 


(8) 


2 


dest. ination_address_ 


e 


bit 


(3) 


2 


destination _address_ 


f 


bit 


(8) 


2 


sour ce_add res s_a 




bit 


(8) 


2 


source_address_b 




bit 


(8) 


2 


source _address_c 




bit 


(8) 


2 


source _address_d 




bi t 


(3) 


2 


source_address_e 




bit 


(8) 


2 


sourcp_address_f 




bi t 


(8) 


2 


ty pe_ f ield_a 




bi t 


(9) 


2 


ty pe f iel d_b 




bi t 


(8) 


2 


da ta ( 46 ) 




bit 


(8) 


2 


crc nsb 




bi t 


(e) 


2 


cr c uppe r_m id d 1 e_byte 


bit 


(8) 


2 


crc lower middle byte 


bit 


(3) 


2 


crc_lsb 




bit 


(8) 



(xmit_ptr, rcv_ptr , block_ptr ) pointer, 
index fixed bin (15), 

(addr_e, addr_f) bit (8), 

address file, 

copy_ ie_regis ter bit (8), 

1 clus ter_ addr , erb_wr i te_va lue , i ) bit (16), 
( .1 ,k- ) f ixed bin ( 15 ) , 
reg_value bit (8) , 

write_io port entry (bit (8), bit (8)), 
read_io_port entry (bit (8), bit (8)), 
initial ize_cpu_interrupts entry, 

enable_cpu_in terrupts entry, 

d i sa bl e_cpu_i n te rruots entry, 

write_bar entry (bit (16) ) ; 

/* end module listing #/ 



^replace 





/* 


cod es 


specific to 


the Intel 9259a 


Programmable 






Inter 


rupt 


Control ler ( PIC ) */ 
















icwl 


Dort_address 


by 


'c0 


' b4 , 


/* 


note 


tha t 


*/ 


icw2 


Port_address 


by 


'c2 


'b4. 


/* 


i cw2 


, icw4 


, */ 


icwl 


__port_address 


by 


'c2 


'b4. 


/* 


and 


ocw 


*/ 


ocw_ 


port_address 


by 


' c2 


'b4. 


/* 


use 


same 


*/ 












/* 


port 


addr 


*/ 













/* note: lew ==> initialization 

control 
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word 



ocw ==> operational 
c ornma nd 

word */ 



icwl by ' 13 ' b4 , 

/* single PIC configuration, edge 
triggered input */ 

icw2 by "40 ' b4 , 

/* most significant bits of vectoring 
byte; for an interrupt 5, 
the effective address will be 
( icw2 + interrupt #) * 4 which 
will be (40 hex +5) * 4 = 

114 hex */ 

icw4 by '0f / b4, 

/* automatic end of interrupt 
and buffered mode /ma s ter */ 

ocwl by '8f'b4J 



/* unmask interrupt 4 (bit 4), */ 

/* interrupt 5 (bit 5), and */ 

/* interrupt P (bit 6), mask all others */ 



/* end 8259a codes */ 



/* include constants specific to the NI3010 
board */ 

^include 'ni 3010. del'? 
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J V 5|C r[J 3,2 3|i »[' *]» 



»'< *)+ <►** »V J* *■* *•/ »•< *•< *V i 1 ' *'» »*» >'•» »•» »•< »•< J< *U v< «<« «■< «'< »'/ »*< Vf V' •'< »'< v* «'< «'< v< «'< >j> / 

'i* 'p 'i' »i* »p *i» *,» v n' *i' *'' *>' »,* 'p <p ^p #p <p ^)p »p *p »p *p »p #p »p *T* 'p v ^P *%*• *i' «y» »p »p »p v / 



/* Main Pody */ 



rail wri te_io_port( interrupt_enable_register, 

disable _ni 30 10_interrupts) 5 
call in i tial i ze_pic ; 
call in i t ial i ze_cpu_i n terrup t s ; 

call read_io_port ( command_status_register ,reg_value ) ; 
call perform" command (reset); 

call pr ogram_grouo_addr esses ; 

/~ assignments to the source and destination address 
fields that will not charge */ 

call perf orm_command ( clr_insert_source ) ; 

/* NI3P10 performance is enhanced in this mode */ 

unspec ( block_ptr ) = block_ptr_value; 
unspec ( rcv_pt r ) = rcv_ pt r_value ; 
unspec(xmit ptr) = xmit_ptr value; 

/* make one time assignments to transmit data block */ 

t ran smi t _da ta_bl ock .ies t i na t i on_addres s_a = '03'b4; 
t ransmi t da ta_ bl ock . d es ti nati on_add res s_ b = '00'b4J 
transmi t _d ata_bl ock .destinati on_address_c = '00'b4; 
transmi t’d ata block .destinati on_address_d = '00 'd 4? 
t ransmi t _dat a bl ock . sou rce_ addres s_a = '03'b4." 
t ransmi t_data_block.source_address_b = '00'b4; 
transmit d ata_ block .source_address_c = '00'b45 
t ran smi t _d a ta_ bl ock . s ource_addres s_d = '00'b4J 

/* get the local cluster address - file was 
opened in proc pro gram_group_add res ses */ 



get file (address) list (addr_e, addr f ); 
t ransmi t _ data bl ock .s ou rce_add res s_e = addre? 
t ransmi t da ta_bl ock . s ource_addres s_f = adar_f; 

cluster_addr = addr e ! ( addr_f? 

put skip (2) edit ( CLUSTFR ' , clus ter _adl r , 

Initialization Complete ***') 
(col(15),a,b4(4) ,a ); 

i = '000l'b4; 

call perform command fgo_online); 

/* at this point copy_ie_reg = PBA , but 
ie_reg on NI3010 is actually disabled */ 
call disable cpu_ interrupts; 
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do k = 1 to infinity J 

/* note: interrupt not allowed during a 
ca ] 1 to MCORTEX primitive */ 

erb write^value = read ( ERB_WRI TE ) ; 

In^the MXTRACF version of the RTOS 
all primitive calls clear and 
set interrupts (diagnostic message 
routines), so the MI3010 interrupts 
must be disabled on entry to MXTR ACE */ 
do while (erb_write_value < i); 

/* busy waiting */ 
er b_ wri te_value = read ( EPB_WRITE ) ; 
c opy__i e _ re gist er =r e i~ e ive_bl oc tc_a v a i labl e ; 
call write_io_port(interrupt_enab]p_register, 

receive_block_available)* 
call pnable_cpu_interruptsJ 
/* if a packet has been received , this 
is when an interrupt may occur - can 
see that outbound packets are always 
favored. */ 
do ,1 - 1 to 1000 ; 

/* interrupt window for packets received ••'/ 
end; /’•• do j */ 
call d isable_cpu_interrupts ; 

if ( copy_ie_regi s ter = receive_dma done) then 
do ; 

/* receive DMA oppration started, so let 
finish. */ 

call enable_cpu_interrupts ; 

do whilp ( ropy_ie_regis ter=receive dma_done); 

end; 

call d isable_cpu_interrupts; 
end; /# ift */ 

c opy_ ie__regi s ter = disablp_ni3010_interrupts; 
call wri te_io_port( inter rupt_pnable_r eg ister, 

disablp_ni 30 10_ interrupts); 

end! /* busy */ 

/* FRB has an EBP in it, so process it */ 

/* no external interrupts (RBA) until 
the ER 0 is consumed and the packet 
gets sent */ 

index = mod (( fixed ( i ) - 1), er b_bl ock_len ) ; 

/* 32k limit on parameter to fixed fen. */ 
transmit data_ block. data( 1 ) = erb ( i ndex ). comma nd ; 
t ransmi t _da ta_bl ock .da ta ( 2 ) = erb ( i ndex ). type_name ; 
t ransmi t_da ta_block .da ta ( 3 ) = 

subs tr (erb ( index ). name value, 
9,8) ; 
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transmi t_data block ,data(4 ) = 

substr(erb( index) . name _va 1 ue , 

1 , 9 ) ; 

transmit. data_block. destination _add re ss_e = 

substr(erb(index).remote_addr, 1 ,8 ) » 
t ran smi t data _bl ock.destination_address_f = 

subst r (erb ; index ).remote_addr, 9,8); 

call advance (EFB_READ)J /* caution here !!!! 

an ADVANCE will result in a 
call to VP$SCHEDUlEn , which 
will set CPU interrupts on exit. 
It's the reason N 1 3010 interrupts 
are disabled first in the 
Do While loop above. */ 

/* packet ready to so. so send it */ 

call trar.smi t_packe t ; 

/* cony_ie_register = RPA , but not actual resister */ 
call disable c pu_in te rrupt s J 

/* settins up for next ERP consumption */ 
i = add 2bi 1 16( i , '000l'b4); 

end.’ /* do forever */ 

/* end main body */ 



/ JU o# O/ J# ou V' ^ ^ V' ^ ^ * 

/jH <.|S X #»,•* /|% #|« >1% /|<» <1% ^ /|t ^jH >|4 op op op op op op op I 



i n i t ial i ze_pi c : procedure.* 



DECLARE 



writeio port entry (bit (3) , bit(8))J 

call wri te_io_port ( icwl_port address , icwl ) ; 
call wri te_i o_port ( i cw2_port_add ress , icw2 ) ; 
call wri te_i o_port ( i cw A_por t _add re ss , i cw4 ) ; 
call wri te_i o_port ( o cw_port_addres s , ocwl ) I 



end initialize pic? 



-V ^*0 %*0 1*0 Jo J/ Jo Jo Jo Jo Jo *V Jo Jo Jo «(o Jo Jo Jo %*0 4*0 Jo Jo ^*0 Jo Jo Jo jo Jo jo Jo Jo Jo 4*0 Jo Jo 

0 |S op Oj% op op op op op * p op op 0 |% Op o ( s J 4 op op op op op ^ op Op oo f - op Op Op Op op Op op Op op 0,4 Op op op op op op op J|% 



/ 
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perf orm_ command : 



procedure (command)* 



DECLARE 

command Lit (8) , 

reg_value bit (3) , 

srf bit ^ 8 ) , 

write _io_port entry (bit (8), bit (8) ), 
read_io_port entry (bit (8), bit (8) )? 

/* end declarations */ 

srf = '0'b4? 

call write io port (command_register, command ) ; 
do while (Tsr'f & '01 'b4) = '00'b4)5 

call read_io_Dort (interrur>t_status reg, srf); 

end? /* do while */ 

call read_io_port ( comma nd _s t,atus_regis ter , reg_valne); 
if (reg_value > '01 "b4) then 
d o * 

/* not (SUCCESS or SUCCFSS with Retries) */ 

put skip edit ('*"** ETHERNET Hoard failure **#') 

( c ol ( 20 ) , a ) ; 

/* when this occurs, run the diagnostic 
routine T3010/CX, where r is the 
current cluster number */ 

stop* 

end,* /* itd */ 



end perf ormc ommand ; 



/ 3^ 3*t 3jC # 3jC 3>C ;(C 3^ # >',? 3(C # 3j? 3JC 3(t # 3|C 3jC 3j* 3j< # 3j? # 3|C 3^ # 3JC 3{C 3*,C # 3|C 3^ 3^ 3|C Jjc SjC # 3,C 3^ 3|C 3(C 3(C 3£ 






transmi t_uacket. : procedure external; 



DECLARE 

srf bit (8) , 
reg_ value bit (8) , 

write_io__port entry r bit (8) , bit (8) ), 
read_io_pcrt entry (bit (8) , bit (8) ), 
e nab 1 e_ cpu_ in ter rupts entry, 

i isable_cpu_interrupts entry, 

write_bar entry (bit (16)); 
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/* begin */ 



srf = '0'bi; 

call write_har ( xmi t_ptr_ value ) J 

call write io port ( hi gh_by te _c our t_reg , '00 'b4 ) ; 

call write_io_uort,( low_by t e_r ount _reg , '3c ' b4 ) ; 

copy__ie_ register = transmi t _dma_d one * 

call write_io_port(interrupt_e r ’ab]e_register, 

tr ansmi t._dma_done ) ; 
call enable cpu_intpr rupts I 

do while ( copy_ie_re?i ster = t ransmi t_dma_ i on e ) ; 
end; /■•’ loop until the interrupt handler 
takes care of the TEE interrupt - 
it sets copy_ie_regi ste r = a BA -•■/ 
call perf orm command (load and send); 



end t ra nsni t_packet ; 



sje # jjc sj* 5;: # # ^ ^ r 1 ,: # 5^ 5;? sjc # sfc # # # ijc jjs # 3 (c sjs 3 jc # # 






£ ?;c £ # # 3',4 / 



tfL_interrupt_handler: procedure external; 



/* This routine is called from the low level 
B086 assembly language interrupt routine *■/ 

DECLARE 

wri te_i o_port entry (bit («) , bit (8) ), 
read_io_port entry (bit (8) , bit (8) ), 
enablecpuint.errupt.s entry, 

disablecpu_interrupts entry, 

write bar entry (bit(16)); 

/* begin */ 

call vr i te_i o_oor t (i"t err upt_er able _register. 

disabl°_ni3010_interrupts ) » 

if (copy ie register = recei v°_bl ock_a vai la ble ) 
then do? 

call write_bar ( rcv_ptr_ value) ; 

call write _io_port( h igh_by t e_coun t, _reg , ' 05' b4 ) ; 

call write _io_port(l ow_by t e_oount_reg , 'f 2 ' b4 ) ; 

/* iritiate receive tii^a */ 



copy_ie_register = receive_dma_done ; 

call write_io_port( i n terrupt_e nable_ regi s t er , 
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receive dma done); 



end; /* do */ 
else 

if (copy ie_resister = recei ve_dma__dcne ) then 
do; 

call process_packet 5 

ropy_ie_ref?is ter = rerei ve_bl ock_avai lable ; 
call write_io_port(interrupt_enablp_re^ister, 

recei vp_bl ock_ava i labl e ) ; 

end; /* if then do */ 
else 

if { copy_ie_reei st.er = transmit dma_done) 
then do; 

copy_ie_re,e;ister = receive blockavailable 
/* MI 3010 interrupts disabled on entry */ 
end; /* if then do */ 

end HL_ir terrupt_hand ler ; 



/ %*# 
f rp -rp 



-p -p #,% 



sfc dr ❖ # 5*C Sjc :*c die # 3j: 



>p #p rj> #|» * ( *p 






% 



# l' 'I 



* 



process_ packet : procedure! 

DFCLARE 

local_evc_ value bit (16), 
data_pt,r pointer, 

remote_ evc_value bit (16) based (data_ptr); 

if ( recei ve da ta_bl ock .da t.a ( 1 ) = evc_type) then 
d o ; 

data_ptr = addr ( recei ve__da ta_bl ock .da ta (3 ) ) ; 

/* remo te_ evc_ va lue row has a value */ 

1 oca l_evc_value = read ( recei ve_da ta_bl ock . da ta ■ 2 ) ) 

do while (local evc_value < re , r’ote_evc_va] ue ) ; 

call advance ( recei ve_ d a ta_bl oc k .da ta ( 2 ) ) ; 

1 oca 1_ evc_value = ad.d2bi tl6 ( loca l_evc value, 

'0001 'b4 ) ; 



e nd ; 

call disable_cpu_interrupts; 

/* this must he done due to setting of 
cpu interrupts by calls to MCORTEX's 
V P$S CEEDUL^R via ADVANCE */ 
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end? /* itd */ 

/* only type packet in this limited implem. */ 
end process packet; 

f 3*,c sjc 5 ^ >J; 5 ^ # 3}c t' 'r 5>' # 'r 'r # 'e # ?v ^ 3{c # >;c # # 3); # 3|c y.t 3 ;? # 3|< s.'t sjt 3p :\i 3js 3jc sjc 3js ;J: 3{c 3 ^ :Jc 3 ^ 3^: 3|c ^ / 



prog ram _group_addresses: procedure? 



DECLAPE 



1 group addr(40) based (group_ptr), 

2 me grout) f i eld_a 
"bit (P), 

2 me _group field _b 
bit (9), 

2 mc_£rouo_f i el i_c 
bit (8), 

2 mc_grout> field_d 
bit (8), 

2 mr_group_f i eld_e 
bit (8), 

2 mc_group_f i eld _f 
bit (8); 



DECLARE 

(group ptr.p) pointer, 

( f ield_e , field_f) bit (8), 
bit_8 groups bit (8) based (p), 

( i ,num__groups .groups, times_6) fixed bin (7); 

unspec ( group _pt r ) = Tmit_ptr_value? 
open file (address) stream input? 
get file (address) list (n”i__eroups ); 
do i = 1 to num_groups; 

group add r ( i ). mc_group_fi eld _a = '03'b4? 
g rou p_addr ( i ) .mc_group_f i eld_b - '00'b4? 
group_ add r ( i ) .mc_eroup_f i eld _e = '30't4» 
e roup addr ( i ). mc_?roup_fi eld _d- = '00'b4» 
get file (address) list ( f i°li_e , f ield_f ) ; 
grou p.add r ( i ) .mc_group_f i eld _e - field_e? 
group addr ( i ) .mc_?roup_fi eld_f = field_f» 

end? /* do i */ 

call di sable_ cpu_ in terrupt s ? 



202 



rail write_bar ( xmi t_ts tr_val ue ) I 

call wri te _i o_dot t ( hi gh_by te_c oun t_re^ , '00'bt); 

groups tines_ 6 = 6 * num groups? 

p = add r ( groups_ times fiT? 

call write_io_port( lo w_byte_nount_reg, bit_ 8 groups) I 

c opy_i p_re£i s ter = transmi t_dma_d one 5 

call write_io_port(interrupt,_enable_re^ister, 

transmit _dma_d one) ; 
call enable cpu_i nterrupts ; 

do while ( coo.y_ie_re?ister = tran smi t_dma_done ) ’ 
end; /* loop until the interrupt handier 
takes care of the TDD interrupt - 
it sets C0?Y_ T E_PFG = F D */ 

call pe r f orm_command ( load _^roun_ad d resses ) 5 

end profrrarn_ group_addres ses ; 

^ ^ *1* J# »•/ J# JU 4^ O# J# 4*-» 4*# 4*# 4*# O# %V< J# %'# s'/ 4 1 # O* ***# 4*^ V», 

*»* V 



end ; 



** r f 4 #|% ^ /p #,» # t S #|% #|% 



••" - / 



/■•' system device handler and packet processor */ 
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* # * # * * 5jc # $ # * ;;c # * # # # # sjc # s{c # ^ 3,*c 3* 3 ^ * # 3|c # * # sje sjc # 3|c * * # :',< ^ * £ * # ;|c 3| # # * ;j; * * # # * # * 

* # * * # £ * * ** * :J? % * * * * * * * £ * # ^ £ * * * * # * * * * * * # * * * * * * ajc >J: :|c sjc # s'. * * * * ;J< * * * * V r * 

*** * SPROUT . 486 file *** 

* # *:£ sj: £ sjr £ ^ s|: * if # 5|s ?,c if sjc * £ s|s £ s|s ^ sir### s’; :;-- * # if * if if * # sjt sf: sf: i|'- -.;: if * -.;« s|; -.;: -.;; jjt :|c * if * $ * * 



extrn 


hl_i 


publ i c 


wri 


public 


re a 


public 


wri 


publ i c 


ini 


public 


ena 


pu bl ic 


dis 


; **%*%***%. 



n te rrupt_hand 1 er : far 

te_io_ port 
d_i o_port 
te_ha r 

t ial i ze_cpu_in terrupt s 

ble_cpu_interruDts 

able_cpu_interrupts 

if if # if 5~.« if if *: # j;:^c # # sjs if iff: if stesjr * * if # # # if if if. if. if if if if if if if if # if if ;;: * if if sfif ;;-. j;j sjcs.'s 



write_io_port : 



Pa rame ter 


Passing Specif icati on : 








en t r.y 


exit 


parameter 


1 


<oort address> 


unc banged > 


parameter 


2 


<valne to be outputted> 


< unc banged > 



t 

f 



d seg 






port_add ress 


rb 


1 


cseg 







push 


bx ! 


uush si! pnsb dx! push ax 


mov 


si , 


Tbx] 


mev 


al. 


r s i 1 


mov 


por 


t address, al 


mov 


si , 


2 Tbx] 


mov 


al , 


[sil 


mov 


dl, 


por t_ address 



mo v dh, 00h 
out dx , al 

pop ax! pop dx ! pop si! pop bx 
ret 

{ * * # * * # * # sjc * # 3^ ;^: * * * s;c jflc >;; >;< * >;c >;<*£ ^ * * >Jc * * # * * * * * * * * * >;c * * * 3 ;: * s;< 3;c >;; 3;? * 
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read_io_port : 



5 Parameter Passing Sp Q cification 
5 

? entry exit 

I 

; parameter 1 <port address> <unchanged> 

; parameter 2 <mearingless> <reeister value> 

c seg 

push bx ! push si! push dx! push ax 

mov si, Tbxl 

mov al , [si] 

mov port_address , al 

mov si, 2 Tbxl 

mov dl, Dort_address 

mov dh, 00h 

in al , dx 

mov T s i ] , al 

pop ax! pop dx! pop si! pop bx! 
ret 



• ^ 'k*# s*/ %*/ %*# %*/ J# V' V* \*/ v*^ %•/ •»</ v** v 1 ^ %'* n'* 

^ /(% /p #p #p /p /p #p /p #p rp ^p #p #p ^p " p #p •)* ^p /p /p /p *p /p rp >p /p #p 



write bar: 



Parameter Passing Specification 

parameter 1 (and only): the address of the data block to be 

transmitted or received. 



dseg 



e bar uort 


eo u 


0b9h 


h ba report 


eau 


0bah 


1 _bar_ t>or t 


ea u 


0bbh 


temu_e_by te 


rb 


1 


temp_ es 


rv 


1 



cseg 

; This module computes a 24 bit address from a 32 nit 
; address - actually it's a combination of the ES register 
; and the IP passed via a parameter list. 

mish bx! uush ax! push cxj push es! push dx! push si 



mov dx, 0800h ,* shared memory segment 

mov es, dx 
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add_l : 
no add : 



mov 


temp 


_es , es 


mov 


d x , 


es 


mov 


si , 


[bx] 


mov 


ax , 


[si] 


mov 


cl, 


12 


shr 


d x , 


cl 


mov 


temp 


_e_b.y te , 


mov 


dx , 


temp es 


mov 


cl , 


4 


shl 


dx , 


cl 


add 


ax , 


dx 


jnc 


no add 


i nc 


temp 


e byte 


out 


l_bar_port, al 


mov 


al. 


ah 


out 


h bar port, a 1 


mov 


al , 


temp_e_by t e 


out 


e_bar__port, al 



pop sil pop dx ! pop es! poo cx! pop ax! pop bx 
ret 



initialize_cpu_interrupts : 



; Module Interface Specification: 

I Caller: Ethertest (PL/I ) Procedure 

; Parameters: NONE 

initmodule cseg common 
org 114h 

int5_offset rw 1 
int5_segment rw 1 

cseg 
push bx 
push ax 

mov bx, offset in ter rupt _handler 

mov ax, 0 

push ds 

mov d s , ax 

mov ds : int5_offset , bx 

mov bx, cs 

mov d s : i n 1 5_segmen t , bx 

pop ds 

pop ax 

pop bx 

sti 
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re t 



enable_cpu_interrupts: 

; Module Interface Specification: 

» Caller: Ether tes t ( PL/I ) Procedure 

> Parameters: NONE 

sti 

ret 



disable _cpu_interrupts: 

; Module Interface Specification: 

; Caller: Ether test ( PL/I ) Procedure 

J Parameters: none 

cli 

ret 



mterrupt_handler : 



J IP, CS, and flaps are already on stack 
? save all other registers 

push ax 
push bx 
push cx 
push dx 
push si 
push di 
push bp 
push ds 
push es 

call hl_interrupt_handler ; high level source 

»’ routine 
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; restore registers 

po p es 
pod is 
pop bp 
pop di 
pop si 
pod dx 
pop cx 
pop bx 
pop ax 
sti 
i ret 



end 
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A PPFNDIX L 



^13010 PIA?.NOSTIC CODE 

In the event of an Ethernet board failure indication by 
the NI3010 Driver, the full range of NI3010 operations can 
be tested with this routine. Any changes to the port 
addresses of the NI3010 will have to be reflected in the 
MI3010.DCL f i 1 *= contained in Appendix K. This code will also 
have to be recompiled and relinked . 

This routine is invoked with the CP/M-86 transient 
command: T3010/Cx, where x is the cluster to be tested. For 

example, T3010/C1 tests the MI3010 at Cluster 1. This 
diagnostic routine uses the factory default Ethernet 
physical address, so the boards should not be swapped 
between clusters without taking note of its physical 
address. The NI3010 Driver does not have this restriction. 
The file ASMR0UT.A86 is linked with the module to allow 
access to hardware port addresses and to allow a low level 
assembly language interrupt handler to call a PL/I -85 
interrupt handler. The LINK86 input option files are also 
included in this appendix. 
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# # * # * * ?!- - :’,' * * * * * * # * * * * s’; * * * * * * * ^ 2^ :;? ;|: 2[t * * 5;? 3 ( . * * 2|c ;;? 2,; :;c 2;: >;: jjc :;>' * # 3;: 

* * * # * 5*r *r # V * £ * * * -r # ❖ * # * * * * * # # » * ?£ # # * 3jt * * * £ # # 2^ 2* 2|< # 3^ * # 2JC # # * * * * # * 

** T3010/C1.IMP LIMK86 input option file *** 

* # -.;: s;: s:< if. if if =;: s;: =;: if if if if if if :|c * if if if if if if if if sfc if ;;: if if if if if if s |: if if if if i'- *: i< # if if if if if if s,': * s;: if * * * 

t301 0/c 1 = 

boardtst[code fab [439] 1 ,data[ab [800] ,m[0] , ad [82] ] ,map [all] ] , 
asmr out 

-,: if sjs * if * s',: if if s'.-- if i: if if if -I'- >!'• if if if if if if * sj: if if if if if * s',: If if s;< if s |: if if s|: if :|c if s ;: if if if if s;: if 
if if if if if if if sjc s;: sp if if s;: # if if if if s;e if if if sj: if s’.: if s|t if ejc sj: if s ',: if s',t if if s;< if if s;: sjc s;: if if sj: if 

** T3010/C2 .1 NP LINKP6 input option file *** 

si: * if if if if s|: sjc if if iji if s;< s): if if if s|c * >;< if s|: :|c if if. if if :|c sj: if :J« sj: * s'.s sj; sj: if s|: if if if if * if if if if if 



t301 0/r 2= 

boardtstfcode [ah [439] ] ,data[ah[800l , m (0] . ad [82] I , map [ al 1] j , 
asmrout 

3jc 3^ # 3|: 3;; 2jt X 3*c * 3{C 3j* >:< ## 3j'> y,i y,S 3[c 2lt 2jc 3^ 3;; 3jc 3* ( J * ^ ^ * >JC 3j: y,C 3[C 3';. 2^ 3',' 2|S ^ 3lC 2JC 3|i 3j? * * 2*,C 3j: 3^ * 3 ( ; 3^ 2^ 2;? * 2',: 3^ 

^ 3jC * * 2 1 ,: 2jt 2p 3,'; * 3[C 2|t 3li 3^ 3j: 3|: 3(i * * 2,^ 2jc 3^ 3^ 3j« 3{t * 2jC * 2[C * 3j< 3^ * * * * * * * 3,'C 3|c 3^ 3^ 3^ 2^ * ifi * * * * * 3* * * # 3»S * 3,*t 2^ 

*** TEST3010.DAT file *** 

i: if if if sjs if if if if s;: if sj: if s;-. % s;: 3[: if if if if * sjt s{s sjc sjt sjc ^ s;< s|j « s;: sjc a|c if. if if * if if if if if * if if if if if if if if if if if if V if 



This is a highly reliable packet switching implementation! 

3[S * 3JC % 3^ 3»C # # 2jc 3[C 3^ ?,< # * ^ ^ % # 3^ 3*f 3*C ijc 3jf 3|? 3|C 3^ * # 3»; # % # # 3^ * 2^ * * 3jC 2(S 3»J 3 1 ,? 3^ 2’,C 3^ 2',C ^ 3[C 3j: 3jC 2^ 3[< 2^ 3[C 

3* 3jt *3^ 2^ 2|i * * * 2^ * * 3^ 3** * * $ * 3[C 3* 3^ 3jC 3^3^ ^ 3^2^ 2* ^ ^ ^ * 3* * * * 3jC * * 2',< 2^ * * * * J*/ 2^ ^ # J- 3^ -C ^ ,-{c 2j 2*C * -N' 

*** N 13010 DIA0MOSTIO ROUTINE s; - e ^ 

s;: sj: if if it if if i-. if if if ii if i< :;■ s|c if if if :;■• ie s;? s^ if s’.s sjc sj: s 1 ,: if :!-- s{: s|: s;.- s;-. if if if if if if 

boardtst: procedure options (main); 



/* Date: 



14 FED 1984 



Programmer : 



David J. Brewer 



Module Function: This module, and associated 

submodules, are designed to fully diagnose the 
NI3010 Multibus to Ethernet,' Commmunications 

Controller. If at any time, during the development 
of software or hardwar 0 by a user/implementor of 
ECCB software a fault, is suspected, this 

comprehensive diagnostic routine can be executed 
under CP/M - 86 by invoking the command module 
(i.e., transient command) 'T3010/Cx', where x 
represents the cluster location. 

*/ 



DECLARE 
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1 



transmit _iata_block based (trans_blk_ptr) , 









2 


destination 


address 


_a 


/* 




S* / 




fixed 


bin ( 7 ) , 




/* 


assigned 


! */ 


2 


destination 


_add ness 


_b 


/* 


by 


>*/ 




fixed 


bin (?) 


» 


/* 


XEROX 


! */ 


2 


d ps t ina ti on 


add ress 




/* 




)*/ 




fixed 


bin ( 7 ) , 










2 


destination 


address 


_d 


/* 




>*/ 




fixed 


bin (7), 




/* 


assigned 


! */ 


2 


des ti na ti on 


_adi ress 


o 


/* 


b.v 


><■/ 




fixed 


bin (7), 




/* 


INTE&LAN 


! */ 


2 


destination 


add ress 


f 



fixed bin (?) , 

2 type_field_a 

fixed bin (7), 

2 t.vpe_field_b 

fixed bin ( ? ) , 

2 data_bytes (1500) 
char ( 1 ) , 

1 r°ceive data block based (recolk ptr), 



2 


f rame_s tatus 




bit vS) , 




2 


null_byte 




fixed 


bin 


(7), 


2 


frarne_length_lsb 




fixed 


bi n 


(7) . 


2 


f ramp_len£th_ms b 




f i xed 


bi n 


(7), 


2 


destination_address 


_a 


fixed 


bi n 


(7), 


2 


destination_adiress 


_b 


fixed 


bin 


(7 ) , 


2 


destination,, address 


c 


fixed 


bi n 


(?), 


2 


destination ^address 


Id 


fixed 


bin 


(?) , 


2 


des tination_add ress 


e 


fixed 


bi n 


;7) , 


2 


destination address 


~_f 


f i xed 


bin 


(?) , 


2 


source_address_a 




f i xed 


bin 


(7) , 


2 


s ource_add r es s_b 




f i xed 


bin 


(7), 


2 


s ource_addres s_c 




fixed 


bi n 


(?) , 


2 


source_add ress_d 




fixed 


bi n 


(?) , 


2 


sour ce_add res s_e 




fixed 


bi n 


(?), 


2 


s ou r ce_add r es s. f 




fixed 


ti n 


(7), 


2 


type_f ield_a 




fixed 


bin 


(?), 


2 


type_field _b 




fixed 


bin 


(?) , 


2 


data_bytes (1500) 




char- 


(1). 




2 


crc msb 




fixed 


bin 


(7), 


2 


crc_uDPer_middle_by te 


fixed 


bi n 


(7), 


2 


crc lower middle byte 


fixed 


bi n 


(7), 


2 


crc_lsb 




f i xed 


bin 


(?) , 



test3010 file, 

copy ie_ re«i s ter fixed bin {?), 
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copy_command_sta tus_register fixed bin (7), 

( i . j ,k) fixed bin (If) , 
rpg_value fixed bin ^7), 
operation fixed bin (7), 
cluster fixed bin (7), 

border (80) char (1) static initial ((80)'-'), 
1 t rans_ blk_pt r, re~_blk_pt r ) pointer, 



/* Modules external to this module */ 

write_io_port entry (fixed bin (7), fixed bin (?)), 
reai_io_port entry (fixed bin (7), fixed bin (7)), 
initialize _cpu_ interrupts entry, 

enable_cou_interrupts entry, 

di sa ble_cpu_i nt errupts entry , 

write_bar entry (pointer); 

/* end module listing */ 



^replace 

/* codes specific to thp Intel 8259a Programmable 
Interrupt Controller (PIC) */ 











icwl_port_address 


by 


'c0 


'b4. 


/* 


note 


that 


*/ 


i cw2_po rt _addre s s 


by 


'c2 


>4, 


/* 


i cw2 


, i cw4 




icw4_Port_address 


by 


'c2 


b4. 


/* 


and 


ocw 


*/ 


ocw_por t_address 


by 


'c2 


'b4. 


/* 


use 


same 


*/ 










/* 


port 


add r 


*/ 











/* note: irw ==> initialization 

control 

word 



ocw ==b operational 
command 

word */ 



icwl by '13'b4, 

/* single PIC configuration, edge 
triggered input */ 

i c w2 by '40 'b4 , 

/* most significant bits of vectoring 

byte; for an interrupt 5, 
the effective address will be 
(icw2 + interrupt # ) * 4 which 
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will be (40 hex + 5) * 4 = 

114 hex */ 

icwl by '0f ' b4 , 

/* automatic end of interrupt 
ar.d buffered mode/master */ 

ocwl by '9f'b4, 

/* unmask: interrupt 5 (bit 5) and 
interrupt 6. mask all others */ 

/* end 9259a codes */ 



clusterl by 1 , 
cluster? by 2, 
packet received by 1, 
await_packet by 0; 

/* include constants specific to the NI3010 
board */ 



%include 'n i3010 .del ' ; 



/ # # 5jc y,c 5l« 3^ 3jfi # jjc # Jjt ;js # 3^ 3(i 3^ 3j< # 3|< # 3jC >Jc # 3?c s',: # 3^ 3jC 3{C # 3^ 3|< 3j( 3(: sjc 3^ :;s ?;C 3j? 3^ # 3l< 3^ 3jc 3,< 3JC 3jx 3 ,r ?J; 3;< y 



/* Main Rody */ 



cluster = cluster2; 

/* conditional to set up own address for loopbacks * / 
put list ( — Z ' ) ; /* clear screen */ 
put skip.* 

put edit ((border (i) do i = 1 to 80)) (a); 
put skip (2) edit ('MI3010 Diagnostic Routine') 

( co 1 ( 20 ) , a ) ; 

put skip ( 2 ) ; 

put skip edit ('Command Issued ', 'Result ' ) (col(5),a, 

col (50) ,a) J 

put edit ( ^ 's***##* ' ) (col(5),a, 

col ( 50 ) ,a ) » 
put ski p ( 2 ) ; 

unspec^trans blk_ptr) = '8000 'b4! 
unspec ( rec_blk_ptr ) = '8600'b4; 
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/* with a DS register value of 0800h in the link 
command, this will plac^ packets in extended 
memory (therefore DMA operation can take place */ 
t ran smi t _d a ta _bl ock .i es t i na t i on_a idres s a = 2 : 
t ran smi t d ata_ bl ock .d es t i nat i ori_add r ess_ b = 7; 
t ran sni t i a ta_ bl ock .d es t i na t, i on_add ress_c ~ 1J 
transmit’ data_ block .destination_address_d = 0.' 
if (cluster = clusterl) then 
do? 

t ran smi t _da ta_bl ock .des t ina t ion_addr es s_e = 3>* 
t ransmi t _ d a ta_bl ock . des ti na t ion_ad dres s_f = -22:; 
/* corresponds to 03-EA */ 

end; 

else 

do! /* it's cluster 2 */ 

transmi t_data block. destination_address_e - 4; 
t ransmi t_data_ block .desti nation_address_f - 10; 

/* corresponds to 04-0A */ 

end ; 

t ransmi t _d a ta_bl ock . type_fie ld_a = 0; 
t ran smi t _d ata _bl ock . t yne_f ield_b = 0; 
do i = 1 to 1500; 

transmit_data_block .da ta_bytes ( i ) = ' '; 

end ; 



call read^io_ port ( command _s tatus _ re^i s ter , re,;?_va ] ue ) ; 

call fill_data_block; 

call ini tialize_pic ; 

call initialize^ cpu_in terrupts ; 

put skip edit ( 'Run - Onboa rd Diagnostic') (col'5),a); 

call perfo rm_command (onboard_dia^nostic ) ; 

put skip edit (' p erform Module Interface Loopback') 

( col ( 5) , a ) ; 

call perform_loopback (module^ interface loopback); 
do i = 1 to 1500; 

recei ve_d ata_block .data_by tes (i) = ' '; 
end; /# do 1 V 

put skip edit ('Perform Internal Loopback') (col(5),a); 
call perform_ loopback ( i n tprna 1_1 oopba ck ) ; 
doi=ltoi 500 ; 

recei ve_data_block .data_bytes (i) = ' '; 
end; / # do i */ 

put skip edit ('Perform External Loopback') (col(5),a); 
call per f o rm_l oopba ck (go_c-nlire); /* external loopback */ 
put skip ( 2 ) ; 

put edit ((border (i) do i = 1 to 80)) (.a); 
put skip ( 2 ) ; 

call per form_command( reset ) ; 
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/* pnd nain body */ 



/ «i# O/ V* >1/ J/ J# JU «(/ %•/ sC %i# *V ^ %•# %*# %V %V vi/ J# %V J** '•# v* % 1 " %*# * J * ^** * 

*r ^ -v v n % < t i v ^ V ^i % n ' t n' n % 'r o' v o' o^ o' o' o % ; r v o' nr ‘r o> o' t o' ^r -r *v o' O' o' o' v o' o' o' o' o' * 



/* procedurps */ 



fill_data block: procedure; 



DECLARE 



i fixed bin (15) static initial (1), 
end of file bit (1) static init ('0'b); 



/* begin */ 
open file (test3010); 
on endfile (test 30 10) 
begin J 

end_of_f il e - '1 'b ; 

end J 

do while ( end_of_file = 0); 

get file'test3010)edit(transmit_dat,a_block.data_bytes(i) ) 

( a ( 1 ) ) ; 

i = i + 1 ; 
end? /* do while */ 

end; /* fill data block */ 



i J/ ^ ^ J# %♦/ %V %*/ %•* J/ \ 9 / J# Jtf J# ^ sV V>* *-•# V* # «►** %!# \!# ^ # %’# J# %•# / 

/ O' o' ^r o' ^r # t' **i' n ■ o' o' # r o' n* # i' o' ^i' ^»' O' *•' n* o' o' o' ? r O' o k o ' o' O' ■ i' o' o' # t' n % f r n** # i o' o' *$* # r O' # i" n' / 



initialize pic: orocedure? 



DECLARE 

write ioport entry (fixed bin (?), fixed bin(?))J 
call wr i te_io _po rt ( iowl_port_address , icwl ) ; 
call wri te_io_port ( icw2_port_address , icw2 ) ? 
call wr i t,e_ i o_ po r t ( icv/4_nort_address , icw4 ) ? 
call wr i te_i o_po rt ( ocw_port_address , ocwl ) ; 

end ini tialize_pic? 

/ # ## ### # # # j$c ## >Js # # ❖ ## # # ## # sj? sjc # # sjs# 5jc?j: sjc # # # >;* ^ # s|* # # # sj?^ s s|; # £ jjs # y 



perf orm_command : procedure (command); 
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DECLARE 

command fixed bin (7), 
reg_ val'ie fixed bir (7), 
srf fixed bin (7 ) , 

wri te_ i o_port entry (fixpd bin (7). fixed bin (7)), 
read_io_oor t entry 'fixed bin (7), fixed bin (7)), 
corrrnand_status_codes entry (fixed bin (7)) 

returns ( char ( 30) varying); 

/* end declarations */ 
srf = 0 ; 

call write_io port ( command_resi s ter , command ) ; 
do while (mod? srf, 2) = 0); 

call read io_port ( interrupts tatus_reg, srf)* 
end; /* do while */ 

call read_io_port ( command_s ta tns_repi ster , re£_yalue); 
if (command ~= reset) then 
d o ; 

if (command ~= onboard_dia^nos t ic ) then 

put edit ( command _status_cndes ( re^val ue ) ) 

*( col ( 50 ) , a ) ; 

else 

put edit (dia^nostic_codes ( re,?_value ) ) 

(col (50) , a ) ; 

end J 



end perf orm_command; 

f # #5;: # # # # # # # ## # # # # sjc# 5(1# #### 5^ y,c # # # # # # # # s;i # xjc # 5 (c 5;; # ;;c # 5;: # # # / 

perf orm__l 0 ooback : procedure (command); 

DECLARE 



writ.e_io port entry (fixed bin (7), fixed bin (7)), 
read_io_oort entry 'fixed bin (7), fixed bin \ 7 )), 
i n i t i a 1 i ze _c pu _i n t e r r u p t s entry, 

enab le_cpu_in terrupts entry, 

d isable_cpu_interrupts entry, 

write_bar entry (pointer), 



command _sta tus_codes entry (fixed bin (7)) 

returns (char(^O) varying)* 
command fixed bin (7), 
status_code fixed bin (7), 
ie_reg_valne fixed bin (7), 
srf fixed bin (7 )5 

/* end declare */ 
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operation = awai i_packe t ; 
srf = p; 

call di s able_cpu_ in te rrup t s J 

co py_ie_ re lister" = receive_block_availatle; 

call wri te_ io_ port (intprrupt_erable_ref-;istpr , 

receive _block_avai la ble); 
call enable_cuu_interrupts; 

call write_io port (corrmand_reftis ter .command ) ; 

do while (mod (srf ,2) = P); 

call read_io_port ( interrupt _s ta tus_re^ , srf); 
end; /* do while */ 

/* status is available, so read it */ 

call read_io_port ( command _s tatus _re£i s ter , sta tus_code ) ; 
put edit T comma nd_st,atus_codes( status_code)) ( c ol ( 5P ) ,a ) ; 
call transmit_packet ( transmi t_da ta_block ) ; 

do while (operation = awa i t_packe t ) .* 

/* hardier will change */ 
end; 



end per f orm_l o opback ; 



/ 5{t 3jC # 3(C 3^ if. 3^ ff # if # if if * 3{t if 3jt if # if if 3^ # # 3^ 3j: # 3j< # 3^ 3jt 5^ # 3£ SjC # 3,'t 



t ran smi t_packet : procedure (packet) external; 



DECLAPF 



srf fixed bin (7 ) , 
ref; value fixed bin ■?), 
write io _po”t entry (fixed 
read_io_port entry (fixed 
enable_cpu_in terrupts 
disable cpu_interr up ts 
write bar entry (pointer), 



bin (7) , fixed bin (7) ) , 
bin (7), fixed bin (?)), 
entry, 
entry, 



1 packet, 

2 dest i na t i on_add re ss_a 

/* >*/ fixed bin (7), 

/* assigned ! ■•'/ 2 destination address b 
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/* 


by 


>*/ 




fixed bin (7), 




/* 


XEROX 


! */ 


2 


destination_address 




/* 

/ 




S# / 




fixed bin (7), 










2 


destination _add res s 


_d 


/* 




>*/ 




fixed bin ( 7 ) , 




/* 


ass igr ed 


! */ 


2 


destination address 


p 


/* 


by 


>*/ 




fixed bin (7), 




/* 


INTERLAY 


1 'U / 

'■v 


2 


destination address 


_f 


/* 




/ 




fixed bin (7), 










2 


type_f i eld_a 












fixed bin ( 7 ) 


t 








2 


type_f ield _b 












fixed bin (7) 


t 



2 data_bytes (1500) char 1); 

/* besin * / 
srf = 0 ; 

call wri te_io_port'interruot_enable_ register. 

disabl®_ni3013_interrupts) ; 
call write_ba r ' ( addr ( packet. )) ; 

call wri te _i o_ po r t ( hi gh_by te_^ oun t_reg , 5); /* 1508 */ 

/* bytes*/ 

call wri te_io_port( low_byte_count,_reg , -28 ) ; 
copy_ie_register = transmi t_drna_d one ; 
call enable _cpu_i nter rupt s; 

call write_io_port(interrupt_enable_re£ister, 

tra nsmi t_ima_i one ) ; 

do while ( copy_ie_register = t”ansmit_ dma_done ) ; 
end; /* loop until the interrupt handler 
takes care of the TAP interrupt - 
it sets IE_REC, to 4 */ 

call wri te_io_por t ( c ommand_regis t er , load_and_send ) ; 
do while (rnod(srf,2) = 0)» 

call read_io_port ( interrupts tatus_ reg , srf); 
end; /* do while */ 

call read_io_port ( command _s ta tus_regis ter , reg_value); 



®nd transmi t_packet ; 



/ *' ❖ ❖ # * # * # # 'c # 'c # # * # * # # * # # * * * * 



> 9 s #y. ^ ^ ^ # 



HL_interrupt_hardler : procedure external; 



/* This routine is called from the low level 
8086 assembly language interrupt routine */ 



DECLARE 
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writeio port entry r fixed tin (7), fixed tin '7)), 
read_io_port entry (fix^d Pin (7), fixed bin (7)), 
enablerpp interrupts entry, 

disable_cpu_interrupts entry, 

write_bar entry (pointer), 
match bit (1) static i n i t. ( ' 1 ' h ) ; 

/* besin */ 

call disable_cpu_in terrupts ' 

call write_io_port(interrupt_enable_register, 

disable _n i 5 P10_inte r rup t. s ) ; 
if > copy_ie_ register = recei ve_bl ock_a va i la bl e ) 
then do? 

call writ.e_bar ( add r ( recei ve_d a ta_b lock )) 
call write__io port (high _byte_count_reg, 5); 

/* 1522 bytes */ call wri te_io_ port ( low byte rountrog , -14) 

/* initiate receive D S 1A */ 

call wr i te_i o_ po r.t(interrupt_pnable_rep;ister, 

recei ve_dma_d one ) ; 

c opy_ie_resi s t er = recpi ve_dma_d one; 
end; /* do */ 
else 

if ( c ooy_i e_r egi s t pr = recei ve_dma_done ) 
then do; 

do i = 1 to 15 0r; 

if (transmit_data_block.data_byteS' i) 
receive_data_b]ock .data_bytes ( i ) ) 

then 

match = 0 ; 

end; /* iterative do */ 
if ( match = 0 ) then 
d o; 

put skip (2) <=dit ( '*** warning **■•■') 

(col (50) ,a) 5 

put skip edit ( '*** Packet Error * 5,::;: ') 

( col (25 ) , a ) ? 

end; /* ift */ 
operation = packet_recei ved ; 
end ; 
else 

if ( cop.y_ie_reei ster = transmi t_dma_dore ) 
then do; 

call write_io_pcrt 'inter rupt_enable_register, 

recei ve_block_available ); 
copv_ie_regi ster = rec^i ve_tlock_available ; 
end; /* if then do */ 
end HL_interrupt handler? 
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/ 



*1# »i. «i» %> • *'» V« *'* Vf *'« »*» *•* »•» V' •>*' *•' «A» V' *'* *’* v*< «■< «'< V' »'* V* V' <• 

#1% >,» Y «,- ^f> <>(* #,> *,-• *|* *,» *|* *)• *,« »,» *,« »,' #|» #,> ^ ^ * 



• •>>« .V 

. 3 ? 



5*,: >;* ;|c # 5|c 



/ 



rommand status codes: procedure ' command _sta tus ) 

external returns (char (30) varying); 



DECLARE 



command status fix°d bin (7); 



if conrnand_status = 0 then 
return ('SUCCESS'); 

else 

if command _sta tus = 1 then 

return ( 'SUCCESS WIT* RETRIES'); 

else 

if command _status = 2 then 

return ('ILLEGAL COMMA MB'); 

else 

if command status = 3 then 

return ('INAPPROPRIATE COMMAND ' ) » 

else 

if command _status = d then 
return ('FAILURE'); 

else 

if command _s ta tus = 5 then 

return ('BUFFER SIZE EXCEEDED'); 

else 

if command_status = 6 then 

return ('FRAME TOO SMALL'); 

else 

if command _status = 8 then 

return ('EXCESSIVE COLLISIONS'); 

else 

if c omma nd _s ta tus = 10 then 

return ( 'BUFFER «LIC,MMFNT ERROR'); 



end command s ta tus__codes ; 

/ # i;: 5;? 3 (; ^ 3 |c sis # # ^ a(c # sj« 3;: s;c sjs ?;« # ;Jc :;c 3^ # # sjs 3;? # ?;c # # 3;: 



# Vfi 3j« # 3 ^ 3|< 3(C 3,; 3^ sjc sjc ^ 3',' 3|c ;J< 3;, 3 ;? ?(•' >\i 3|: / 



diasnos tic._codes : rmocedure (diag_sta tus ) 

external returns (char (30) varying); 



DECLAP* 

diag_status fixed bin (7); 

if diag_status = 0 then 
return ('SUCCESS'); 
else 
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if dia£_statns - 1 then 

return ( 'NM10 MI CROPROC FSSCR MEMORY ERROR') 
else 

if iiae;_statiis = 2 then 

return ( 'NM10 DM a error'): 
else 

if dia£_status = 3 then 

return ('TRANSMITTER ERROR'); 
else 

if iiag_status = 4 then 

return ('RECEIVER ERROR'"*: 
else 

if iia£_stat.us = 5 then 

return ('LOOPRACK FAILURE'’*: 



end dia£nostie_codes: 



/ %•# %*<• v# O/ ^ ^ ^ ^ ^ ^ *** ^ ^ ^ V" ‘ 

#|»> <|' *,•* ^ #|^ ^ >|V . r r } , #,% *-<p 'll' ' ,> ^p /p - zp <Y* ^p #P /p ^p #p rp ^P rp >p ^ 



end ; 



/* procedure hoardtest, */ 
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